1400 |
Is it possible to define my values for sorting
Procedure OnCreate Forward Send OnCreate Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Variant voColumn Get ComAdd of hoColumns "C1" to voColumn Handle hoColumn Get Create (RefClass(cComColumn)) to hoColumn Set pvComObject of hoColumn to voColumn Set ComSortType of hoColumn to OLESortUserDataString Send Destroy to hoColumn Send Destroy to hoColumns Variant voColumns1 Get ComColumns to voColumns1 Handle hoColumns1 Get Create (RefClass(cComColumns)) to hoColumns1 Set pvComObject of hoColumns1 to voColumns1 Get ComAdd of hoColumns1 "C2" to Nothing Send Destroy to hoColumns1 Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Variant h Get ComAddItem of hoItems "Cell 1" to h Set ComCellData of hoItems h 0 to "3.your extra data" Set ComCellValue of hoItems h 1 to "SortValue=3" Get ComAddItem of hoItems "Cell 1.1" to h Set ComCellData of hoItems h 0 to "1.your extra data" Set ComCellValue of hoItems h 1 to " SortValue=1" Get ComAddItem of hoItems "Cell 1.2" to h Set ComCellData of hoItems h 0 to "5.your extra data" Set ComCellValue of hoItems h 1 to " SortValue=5" Get ComAddItem of hoItems "Cell 1.3" to h Set ComCellData of hoItems h 0 to "2.your extra data" Set ComCellValue of hoItems h 1 to " SortValue=2" Send Destroy to hoItems End_Procedure |
1399 |
I have multiple dropdown lists, that are depending on each other, that means that the values in dropdown list no. 2 is based on the users selection in dropdown list no 1. How can I do this
// Occurs when the edit operation starts. Procedure OnComEditOpen Forward Send OnComEditOpen Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Variant v Get ComCellValue of hoItems (ComFocusItem(hoItems)) 0 to v Variant c Get ComCellCaption of hoItems (ComFocusItem(hoItems)) 0 to c Send Destroy to hoItems Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Variant voColumn Get ComItem of hoColumns 1 to voColumn Handle hoColumn Get Create (RefClass(cComColumn)) to hoColumn Set pvComObject of hoColumn to voColumn Variant voEditor Get ComEditor of hoColumn to voEditor Handle hoEditor Get Create (RefClass(cComEditor)) to hoEditor Set pvComObject of hoEditor to voEditor Send ComClearItems of hoEditor Send ComAddItem of hoEditor v c Nothing Send Destroy to hoEditor Send Destroy to hoColumn Send Destroy to hoColumns End_Procedure Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComPaneWidth of hoChart True to 0 Send Destroy to hoChart Variant voColumns1 Get ComColumns to voColumns1 Handle hoColumns1 Get Create (RefClass(cComColumns)) to hoColumns1 Set pvComObject of hoColumns1 to voColumns1 Variant voColumn1 Get ComAdd of hoColumns1 "DropDownList" to voColumn1 Handle hoColumn1 Get Create (RefClass(cComColumn)) to hoColumn1 Set pvComObject of hoColumn1 to voColumn1 Variant voEditor1 Get ComEditor of hoColumn1 to voEditor1 Handle hoEditor1 Get Create (RefClass(cComEditor)) to hoEditor1 Set pvComObject of hoEditor1 to voEditor1 Set ComEditType of hoEditor1 to OLEDropDownListType Send ComAddItem of hoEditor1 1 "First" Nothing Send ComAddItem of hoEditor1 2 "Second" Nothing Send ComAddItem of hoEditor1 3 "Third" Nothing Send Destroy to hoEditor1 Send Destroy to hoColumn1 Send Destroy to hoColumns1 Set ComDrawGridLines to OLEexAllLines Variant voColumns2 Get ComColumns to voColumns2 Handle hoColumns2 Get Create (RefClass(cComColumns)) to hoColumns2 Set pvComObject of hoColumns2 to voColumns2 Variant voColumn2 Get ComAdd of hoColumns2 "DropDownList-Related" to voColumn2 Handle hoColumn2 Get Create (RefClass(cComColumn)) to hoColumn2 Set pvComObject of hoColumn2 to voColumn2 Variant voEditor2 Get ComEditor of hoColumn2 to voEditor2 Handle hoEditor2 Get Create (RefClass(cComEditor)) to hoEditor2 Set pvComObject of hoEditor2 to voEditor2 Set ComEditType of hoEditor2 to OLEDropDownListType Send Destroy to hoEditor2 Send Destroy to hoColumn2 Send Destroy to hoColumns2 Variant voItems1 Get ComItems to voItems1 Handle hoItems1 Get Create (RefClass(cComItems)) to hoItems1 Set pvComObject of hoItems1 to voItems1 Set ComCellValue of hoItems1 (ComAddItem(hoItems1,1)) 1 to -1 Set ComCellValue of hoItems1 (ComAddItem(hoItems1,2)) 1 to -1 Set ComCellValue of hoItems1 (ComAddItem(hoItems1,3)) 1 to -1 Set ComLockedItemCount of hoItems1 OLEexBottom to 1 Variant h Get ComLockedItem of hoItems1 OLEexBottom 0 to h Set ComItemDivider of hoItems1 h to 0 Set ComItemDividerLineAlignment of hoItems1 h to OLEDividerTop Set ComCellEditorVisible of hoItems1 h 0 to False Set ComCellSingleLine of hoItems1 h 0 to False Set ComCellValueFormat of hoItems1 h 0 to OLEexHTML Set ComCellValue of hoItems1 h 0 to "The drop down editor in the second column is filled during the <b>EditOpen event</b>, and the values are based on the selection on the first column." Send Destroy to hoItems1 Send ComEndUpdate End_Procedure |
1398 |
Is it possible background color displayed when the mouse passes over an item
Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Get ComAdd of hoColumns "Def" to Nothing Send Destroy to hoColumns Set ComHotBackColor to (RGB(0,0,128)) Set ComHotForeColor to (RGB(255,255,255)) Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Get ComAddItem of hoItems "Item A" to Nothing Get ComAddItem of hoItems "Item B" to Nothing Get ComAddItem of hoItems "Item C" to Nothing Send Destroy to hoItems Send ComEndUpdate End_Procedure |
1397 |
Is it possible to magnify a specified date and apply a different background color
Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Get ComAdd of hoColumns "Tasks" to Nothing Send Destroy to hoColumns Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComDrawLevelSeparator of hoChart to False Set ComPaneWidth of hoChart False to 64 Set ComFirstVisibleDate of hoChart to "11/23/2011" Set ComLevelCount of hoChart to 3 Set ComFirstWeekDay of hoChart to OLEexMonday Set ComAllowInsideZoom of hoChart to True Variant voInsideZooms Get ComInsideZooms of hoChart to voInsideZooms Handle hoInsideZooms Get Create (RefClass(cComInsideZooms)) to hoInsideZooms Set pvComObject of hoInsideZooms to voInsideZooms Variant voInsideZoom Get ComAdd of hoInsideZooms "11/29/2011" to voInsideZoom Handle hoInsideZoom Get Create (RefClass(cComInsideZoom)) to hoInsideZoom Set pvComObject of hoInsideZoom to voInsideZoom Set ComAllowCustomFormat of hoInsideZoom to True Send Destroy to hoInsideZoom Send Destroy to hoInsideZooms Variant voInsideZooms1 Get ComInsideZooms of hoChart to voInsideZooms1 Handle hoInsideZooms1 Get Create (RefClass(cComInsideZooms)) to hoInsideZooms1 Set pvComObject of hoInsideZooms1 to voInsideZooms1 Variant voInsideZoom1 Get ComItem of hoInsideZooms1 "11/29/2011" to voInsideZoom1 Handle hoInsideZoom1 Get Create (RefClass(cComInsideZoom)) to hoInsideZoom1 Set pvComObject of hoInsideZoom1 to voInsideZoom1 Set ComWidth of hoInsideZoom1 to 68 Variant voInsideZoomFormat Get ComCustomFormat of hoInsideZoom1 to voInsideZoomFormat Handle hoInsideZoomFormat Get Create (RefClass(cComInsideZoomFormat)) to hoInsideZoomFormat Set pvComObject of hoInsideZoomFormat to voInsideZoomFormat Set ComBackColorChart of hoInsideZoomFormat to (RGB(224,224,224)) Send Destroy to hoInsideZoomFormat Send Destroy to hoInsideZoom1 Send Destroy to hoInsideZooms1 Send Destroy to hoChart Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Variant hA Get ComAddItem of hoItems "Task A" to hA Send ComAddBar of hoItems hA "Task" "11/24/2011" "11/26/2011" "A" Nothing Variant hB Get ComAddItem of hoItems "Task B" to hB Send ComAddBar of hoItems hB "Task" "11/28/2011" "12/1/2011" "B" Nothing Send ComAddLink of hoItems "LinkAB" hA "A" hB "B" Set ComLink of hoItems "LinkAB" OLEexLinkStyle to 2 Set ComLink of hoItems "LinkAB" OLEexLinkWidth to 2 Send Destroy to hoItems Send ComEndUpdate End_Procedure |
1396 |
Could you please tell me how to add multiple bars to the one line
Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComFirstVisibleDate of hoChart to "1/1/2002" Send Destroy to hoChart Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Get ComAdd of hoColumns "Task" to Nothing Send Destroy to hoColumns Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Variant h Get ComAddItem of hoItems "Task" to h Send ComAddBar of hoItems h "Task" "1/2/2002" "1/4/2002" "A" Nothing Send ComAddBar of hoItems h "Task" "1/6/2002" "1/10/2002" "B" Nothing Set ComItemBar of hoItems h "A" OLEexBarColor to 255 Send ComAddLink of hoItems "AB" h "A" h "B" Send Destroy to hoItems Send ComEndUpdate End_Procedure |
1395 |
My development environment does not have any Object,GetOcx,DefaultDispatch,GetControlUnknown,nativeObject, ... property, is there any alternative I can pass the component to PrintExt so I can get printed
|
1394 |
My development environment does not have any Object,GetOcx,DefaultDispatch,GetControlUnknown,nativeObject, ... property, is there any alternative I can pass the component to PrintExt so I can get printed
|
1393 |
Is it possible to display the bar's captions or labels with a different font/size
Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Get ComAdd of hoColumns "Task" to Nothing Send Destroy to hoColumns Set ComDefaultItemHeight to 24 Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComPaneWidth of hoChart False to 64 Set ComFirstVisibleDate of hoChart to "1/1/2001" Set ComLevelCount of hoChart to 2 Send Destroy to hoChart Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Variant h Get ComAddItem of hoItems "Default" to h Send ComAddBar of hoItems h "Task" "1/2/2001" "1/6/2001" "" "This is a the control's font" Set ComItemBar of hoItems h "" OLEexBarHAlignCaption to 18 Get ComAddItem of hoItems "Smaller" to h Send ComAddBar of hoItems h "Task" "1/2/2001" "1/6/2001" "" "<font ;5>This is a the control's font with a smaller size" Set ComItemBar of hoItems h "" OLEexBarHAlignCaption to 18 Get ComAddItem of hoItems "Larger" to h Send ComAddBar of hoItems h "Task" "1/2/2001" "1/6/2001" "" "<font ;15>This is a the control's font with a larger size" Set ComItemBar of hoItems h "" OLEexBarHAlignCaption to 18 Get ComAddItem of hoItems "Tahoma 1" to h Send ComAddBar of hoItems h "Task" "1/2/2001" "1/6/2001" "" "<font Tahoma>This is using a Tahoma font" Set ComItemBar of hoItems h "" OLEexBarHAlignCaption to 18 Get ComAddItem of hoItems "Tahoma 2" to h Send ComAddBar of hoItems h "Task" "1/2/2001" "1/6/2001" "" "<font Tahoma;14>This is using a <b>Tahoma</b> font with a different size" Set ComItemBar of hoItems h "" OLEexBarHAlignCaption to 18 Send Destroy to hoItems Send ComEndUpdate End_Procedure |
1392 |
How can I apply the same ConditionalFormat on more than 1(one) column (multiple columns and not on item)
Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Variant voConditionalFormats Get ComConditionalFormats to voConditionalFormats Handle hoConditionalFormats Get Create (RefClass(cComConditionalFormats)) to hoConditionalFormats Set pvComObject of hoConditionalFormats to voConditionalFormats Variant voConditionalFormat Get ComAdd of hoConditionalFormats "1" "K1" to voConditionalFormat Handle hoConditionalFormat Get Create (RefClass(cComConditionalFormat)) to hoConditionalFormat Set pvComObject of hoConditionalFormat to voConditionalFormat Set ComBackColor of hoConditionalFormat to (RGB(255,0,0)) Set ComApplyTo of hoConditionalFormat to |CI$1 Send Destroy to hoConditionalFormat Send Destroy to hoConditionalFormats Variant voConditionalFormats1 Get ComConditionalFormats to voConditionalFormats1 Handle hoConditionalFormats1 Get Create (RefClass(cComConditionalFormats)) to hoConditionalFormats1 Set pvComObject of hoConditionalFormats1 to voConditionalFormats1 Variant voConditionalFormat1 Get ComAdd of hoConditionalFormats1 "1" "K2" to voConditionalFormat1 Handle hoConditionalFormat1 Get Create (RefClass(cComConditionalFormat)) to hoConditionalFormat1 Set pvComObject of hoConditionalFormat1 to voConditionalFormat1 Set ComBackColor of hoConditionalFormat1 to (RGB(255,0,0)) Set ComApplyTo of hoConditionalFormat1 to |CI$2 Send Destroy to hoConditionalFormat1 Send Destroy to hoConditionalFormats1 Set ComMarkSearchColumn to False Set ComDrawGridLines to OLEexRowLines Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Get ComAdd of hoColumns "Column 1" to Nothing Get ComAdd of hoColumns "Column 2" to Nothing Get ComAdd of hoColumns "Column 3" to Nothing Send Destroy to hoColumns Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Get ComAddItem of hoItems Nothing to Nothing Get ComAddItem of hoItems Nothing to Nothing Get ComAddItem of hoItems Nothing to Nothing Send Destroy to hoItems Send ComEndUpdate End_Procedure |
1391 |
Is it possible to change the height for all items at once
Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComLinesAtRoot to OLEexLinesAtRoot Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Get ComAdd of hoColumns "Items" to Nothing Send Destroy to hoColumns Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Variant h Get ComAddItem of hoItems "Root 1" to h Get ComInsertItem of hoItems h "Child 1" to Nothing Get ComInsertItem of hoItems h "Child 2" to Nothing Get ComAddItem of hoItems "Root 2" to h Get ComInsertItem of hoItems h "Child 1" to Nothing Get ComInsertItem of hoItems h "Child 2" to Nothing Set ComExpandItem of hoItems 0 to True Send Destroy to hoItems Send ComEndUpdate Set ComDefaultItemHeight to 12 Variant voItems1 Get ComItems to voItems1 Handle hoItems1 Get Create (RefClass(cComItems)) to hoItems1 Set pvComObject of hoItems1 to voItems1 Set ComItemHeight of hoItems1 0 to 12 Send Destroy to hoItems1 End_Procedure |
1390 |
Is it possible to include the weekday when displaying the date
Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComMarkSearchColumn to False Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Get ComAdd of hoColumns "Tasks" to Nothing Variant voColumn Get ComAdd of hoColumns "Start" to voColumn Handle hoColumn Get Create (RefClass(cComColumn)) to hoColumn Set pvComObject of hoColumn to voColumn Set ComDef of hoColumn OLEexCellValueToItemBarProperty to 1 Set ComDef of hoColumn OLEexCellValueFormat to 1 Set ComFormatColumn of hoColumn to "value + '<font ;6> ' + (weekday(date(value)) case(0:'Sun';1:'Mon';2:'Tue';3:'Wed';4:'Thu';5:'Fri';6:'Sat'))" Send Destroy to hoColumn Variant voColumn1 Get ComAdd of hoColumns "End" to voColumn1 Handle hoColumn1 Get Create (RefClass(cComColumn)) to hoColumn1 Set pvComObject of hoColumn1 to voColumn1 Set ComDef of hoColumn1 OLEexCellValueToItemBarProperty to 2 Set ComDef of hoColumn1 OLEexCellValueFormat to 1 Set ComFormatColumn of hoColumn1 to "value + '<font ;6> ' + (weekday(date(value)) case(0:'Sun';1:'Mon';2:'Tue';3:'Wed';4:'Thu';5:'Fri';6:'Sat'))" Send Destroy to hoColumn1 Send Destroy to hoColumns Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComFirstVisibleDate of hoChart to "9/20/2006" Set ComAllowLinkBars of hoChart to False Set ComAllowCreateBar of hoChart to OLEexNoCreateBar Set ComLevelCount of hoChart to 2 Set ComPaneWidth of hoChart False to 256 Set ComNonworkingDays of hoChart to 0 Set ComFirstWeekDay of hoChart to OLEexMonday Send Destroy to hoChart Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Set ComAllowCellValueToItemBar of hoItems to True Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 1")) "Task" "9/21/2006" "9/24/2006" Nothing Nothing Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 2")) "Task" "9/22/2006" "9/25/2006" Nothing Nothing Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 3")) "Task" "9/23/2006" "9/26/2006" Nothing Nothing Send Destroy to hoItems Send ComEndUpdate End_Procedure |
1389 |
I need my chart to display the end date with on day less. How can I do this (Method 1)
Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComMarkSearchColumn to False Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Get ComAdd of hoColumns "Tasks" to Nothing Variant voColumn Get ComAdd of hoColumns "Start" to voColumn Handle hoColumn Get Create (RefClass(cComColumn)) to hoColumn Set pvComObject of hoColumn to voColumn Set ComDef of hoColumn OLEexCellValueToItemBarProperty to 1 Send Destroy to hoColumn Variant voColumn1 Get ComAdd of hoColumns "End" to voColumn1 Handle hoColumn1 Get Create (RefClass(cComColumn)) to hoColumn1 Set pvComObject of hoColumn1 to voColumn1 Set ComDef of hoColumn1 OLEexCellValueToItemBarProperty to 2 Set ComFormatColumn of hoColumn1 to "shortdate(date(value)-1)" Send Destroy to hoColumn1 Send Destroy to hoColumns Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComFirstVisibleDate of hoChart to "9/20/2006" Set ComAllowLinkBars of hoChart to False Set ComAllowCreateBar of hoChart to OLEexNoCreateBar Set ComLevelCount of hoChart to 2 Set ComPaneWidth of hoChart False to 196 Set ComNonworkingDays of hoChart to 0 Send Destroy to hoChart Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Set ComAllowCellValueToItemBar of hoItems to True Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 1")) "Task" "9/21/2006" "9/24/2006" Nothing Nothing Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 2")) "Task" "9/22/2006" "9/25/2006" Nothing Nothing Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 3")) "Task" "9/23/2006" "9/26/2006" Nothing Nothing Send Destroy to hoItems Send ComEndUpdate End_Procedure |
1388 |
Is it possible to display my custom time-units
Procedure OnCreate Forward Send OnCreate Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComPaneWidth of hoChart False to 0 Set ComLevelCount of hoChart to 2 Set ComFirstVisibleDate of hoChart to 0 Set ComNonworkingDays of hoChart to 0 Variant voLevel Get ComLevel of hoChart 0 to voLevel Handle hoLevel Get Create (RefClass(cComLevel)) to hoLevel Set pvComObject of hoLevel to voLevel Set ComUnit of hoLevel to OLEexDay Set ComCount of hoLevel to 16 Set ComAlignment of hoLevel to OLECenterAlignment Set ComLabel of hoLevel to "<%i%>" Set ComFormatLabel of hoLevel to "'Half ' + (1 + (value/16) mod 2)" Send Destroy to hoLevel Variant voLevel1 Get ComLevel of hoChart 1 to voLevel1 Handle hoLevel1 Get Create (RefClass(cComLevel)) to hoLevel1 Set pvComObject of hoLevel1 to voLevel1 Set ComLabel of hoLevel1 to "<%i%>" Set ComFormatLabel of hoLevel1 to "1 + value mod 16" Set ComReplaceLabel of hoLevel1 2 to "<font ;10><B>Y" Send Destroy to hoLevel1 Set ComAdjustLevelsToBase of hoChart to True Set ComScrollRange of hoChart OLEexStartDate to 0 Set ComScrollRange of hoChart OLEexEndDate to 31 Send Destroy to hoChart End_Procedure |
1387 |
Is it possible to add new records and see them in the control's view using the DataSource
// Occurs after a new Item has been inserted to Items collection. Procedure OnComAddItem HITEM llItem Forward Send OnComAddItem llItem Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Set ComSelectItem of hoItems llItem to True Send ComEnsureVisibleItem of hoItems llItem Send Destroy to hoItems Send ComEdit 0 End_Procedure // Occurs when user clicks on the cell's button. Procedure OnComButtonClick HITEM llItem Integer llColIndex Variant llKey Forward Send OnComButtonClick llItem llColIndex llKey Variant voRecordset Get ComDataSource to voRecordset Handle hoRecordset Get Create (RefClass(cComRecordset)) to hoRecordset Set pvComObject of hoRecordset to voRecordset Send ComAddNew of hoRecordset Nothing Nothing Send Destroy to hoRecordset End_Procedure Procedure OnCreate Forward Send OnCreate Variant rs Get Comcreateobject "ADODB.Recordset" to rs Variant voFields Get ComFields to voFields Handle hoFields Get Create (RefClass(cComFields)) to hoFields Set pvComObject of hoFields to voFields Send ComAppend of hoFields "Task" OLEadBSTR Nothing Nothing Nothing Send ComAppend of hoFields "Start" OLEadDate Nothing Nothing Nothing Send ComAppend of hoFields "End" OLEadDate Nothing Nothing Nothing Send Destroy to hoFields Send ComOpen Nothing Nothing Nothing Nothing Nothing Set ComDrawGridLines to OLEexRowLines Set ComDetectAddNew to True Set ComDetectDelete to True Set ComDataSource to rs Variant voItems1 Get ComItems to voItems1 Handle hoItems1 Get Create (RefClass(cComItems)) to hoItems1 Set pvComObject of hoItems1 to voItems1 Set ComLockedItemCount of hoItems1 OLEexTop to 1 Variant h Get ComLockedItem of hoItems1 OLEexTop 0 to h Set ComItemDivider of hoItems1 h to 0 Set ComItemHeight of hoItems1 h to 22 Set ComCellValue of hoItems1 h 0 to "AddNew" Set ComCellHasButton of hoItems1 h 0 to True Set ComCellHAlignment of hoItems1 h 0 to OLECenterAlignment Send Destroy to hoItems1 End_Procedure |
1386 |
How can I limit the bars to scrolling range only
// Fired when the user creates a new bar. Procedure OnComCreateBar HITEM llItem DateTime llDateStart DateTime llDateEnd Forward Send OnComCreateBar llItem llDateStart llDateEnd Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Variant v Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Get ComScrollRange of hoChart OLEexMinDate to v Send Destroy to hoChart Set ComItemBar of hoItems llItem "newbar" OLEexBarMinStart to v Variant v1 Variant voChart1 Get ComChart to voChart1 Handle hoChart1 Get Create (RefClass(cComChart)) to hoChart1 Set pvComObject of hoChart1 to voChart1 Get ComScrollRange of hoChart1 OLEexMaxDate to v1 Send Destroy to hoChart1 Set ComItemBar of hoItems llItem "newbar" OLEexBarMaxEnd to v1 Send Destroy to hoItems End_Procedure Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Get ComAdd of hoColumns "Task" to Nothing Send Destroy to hoColumns Variant voChart2 Get ComChart to voChart2 Handle hoChart2 Get Create (RefClass(cComChart)) to hoChart2 Set pvComObject of hoChart2 to voChart2 Set ComLevelCount of hoChart2 to 2 Set ComPaneWidth of hoChart2 False to 56 Set ComScrollRange of hoChart2 OLEexStartDate to "1/1/2001" Set ComScrollRange of hoChart2 OLEexEndDate to "1/15/2001" Set ComFirstVisibleDate of hoChart2 to "1/12/2001" Set ComAllowCreateBar of hoChart2 to OLEexCreateBarAuto Send Destroy to hoChart2 Variant voItems1 Get ComItems to voItems1 Handle hoItems1 Get Create (RefClass(cComItems)) to hoItems1 Set pvComObject of hoItems1 to voItems1 Get ComAddItem of hoItems1 "Task 1" to Nothing Get ComAddItem of hoItems1 "Task 2" to Nothing Get ComAddItem of hoItems1 "Task 3" to Nothing Send Destroy to hoItems1 Send ComEndUpdate End_Procedure |
1385 |
How do I get the handle of the last added item
Procedure OnCreate Forward Send OnCreate Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Get ComAdd of hoColumns "Def" to Nothing Send Destroy to hoColumns Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Get ComAddItem of hoItems 1 to Nothing Get ComAddItem of hoItems 2 to Nothing Showln (ComItemByIndex(hoItems,(ComItemCount(hoItems)))) Send Destroy to hoItems End_Procedure |
1384 |
How can I set the charts date format to any other international Format then the US version. I would need "dd.mmm.yyyy" instead of "mmm.d.'yy"
Procedure OnCreate Forward Send OnCreate Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComPaneWidth of hoChart False to 0 Set ComLevelCount of hoChart to 2 Variant voLevel Get ComLevel of hoChart 0 to voLevel Handle hoLevel Get Create (RefClass(cComLevel)) to hoLevel Set pvComObject of hoLevel to voLevel Set ComLabel of hoLevel to "<%dd%>.<%mmm%>.<%yyyy%>" Set ComUnit of hoLevel to OLEexWeek Set ComAlignment of hoLevel to (OLEexHOutside + OLECenterAlignment) Send Destroy to hoLevel Send Destroy to hoChart End_Procedure |
1383 |
Is it possible to define the bar colors, and have the cumulative histogram showing the same colors
Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComSingleSel to False Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComLevelCount of hoChart to 2 Set ComAllowLinkBars of hoChart to False Set ComDrawGridLines of hoChart to OLEexAllLines Set ComFirstVisibleDate of hoChart to "12/24/2000" Set ComHistogramVisible of hoChart to True Set ComHistogramHeight of hoChart to 64 Set ComPaneWidth of hoChart False to 128 Set ComHistogramView of hoChart to (OLEexHistogramNoGrouping + OLEexHistogramLeafItems + OLEexHistogramUnlockedItems + OLEexHistogramSelectedItems) Variant voBars Get ComBars of hoChart to voBars Handle hoBars Get Create (RefClass(cComBars)) to hoBars Set pvComObject of hoBars to voBars Variant voBar Get ComItem of hoBars "Task" to voBar Handle hoBar Get Create (RefClass(cComBar)) to hoBar Set pvComObject of hoBar to voBar Set ComHistogramType of hoBar to OLEexHistCumulative Set ComHistogramItems of hoBar to 6 Set ComHistogramPattern of hoBar to (ComPattern(hoBar)) Set ComHistogramCumulativeOriginalColorBars of hoBar to OLEexKeepOriginalColor Set ComOverlaidType of hoBar to OLEexOverlaidBarsOffset Send Destroy to hoBar Send Destroy to hoBars Send Destroy to hoChart Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Get ComAdd of hoColumns "Column" to Nothing Send Destroy to hoColumns Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Variant h Get ComAddItem of hoItems "Project" to h Set ComItemBold of hoItems h to True Set ComSelectableItem of hoItems h to False Variant h1 Get ComInsertItem of hoItems h "Item 1" to h1 Send ComAddBar of hoItems h1 "Task" "1/2/2001" "1/4/2001" Nothing Nothing Get ComInsertItem of hoItems h "Item 2" to h1 Send ComAddBar of hoItems h1 "Task" "1/3/2001" "1/5/2001" Nothing Nothing Get ComInsertItem of hoItems h "Item 3" to h1 Send ComAddBar of hoItems h1 "Task" "1/4/2001" "1/6/2001" Nothing Nothing Send ComAddBar of hoItems h1 "Task" "1/1/2001" "1/3/2001" "green" Nothing Set ComItemBar of hoItems h1 "green" OLEexBarColor to 65280 Send ComAddBar of hoItems h1 "Task" "1/8/2001" "1/10/2001" "red" Nothing Set ComItemBar of hoItems h1 "red" OLEexBarColor to 255 Set ComExpandItem of hoItems h to True Send ComSelectAll of hoItems Send Destroy to hoItems Send ComEndUpdate End_Procedure |
1382 |
How can I hide the values shown in the legend when cumulative histogram is displayed
Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComFirstVisibleDate of hoChart to "1/1/2001" Set ComHistogramVisible of hoChart to True Set ComHistogramHeight of hoChart to 64 Set ComPaneWidth of hoChart False to 128 Set ComHistogramView of hoChart to (OLEexHistogramNoGrouping + OLEexHistogramLeafItems + OLEexHistogramUnlockedItems + OLEexHistogramCheckedItems) Variant voBars Get ComBars of hoChart to voBars Handle hoBars Get Create (RefClass(cComBars)) to hoBars Set pvComObject of hoBars to voBars Variant voBar Get ComItem of hoBars "Task" to voBar Handle hoBar Get Create (RefClass(cComBar)) to hoBar Set pvComObject of hoBar to voBar Set ComHistogramPattern of hoBar to OLEexPatternSolid Set ComHistogramType of hoBar to OLEexHistCumulative Set ComHistogramItems of hoBar to 6 Set ComHistogramRulerLinesColor of hoBar to (RGB(128,0,0)) Set ComHistogramBorderColor of hoBar to (RGB(1,0,0)) Set ComHistogramCumulativeShowLegend of hoBar to 65535 Set ComHistogramCumulativeOriginalColorBars of hoBar to False Send Destroy to hoBar Send Destroy to hoBars Send Destroy to hoChart Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Variant voColumn Get ComAdd of hoColumns "Column" to voColumn Handle hoColumn Get Create (RefClass(cComColumn)) to hoColumn Set pvComObject of hoColumn to voColumn Set ComDef of hoColumn OLEexCellHasCheckBox to True Set ComPartialCheck of hoColumn to True Send Destroy to hoColumn Send Destroy to hoColumns Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Variant h Get ComAddItem of hoItems "Project 1" to h Send ComAddBar of hoItems (ComInsertItem(hoItems,h,"Item 1")) "Task" "1/2/2001" "1/4/2001" Nothing Nothing Send ComAddBar of hoItems (ComInsertItem(hoItems,h,"Item 2")) "Task" "1/3/2001" "1/5/2001" Nothing Nothing Send ComAddBar of hoItems (ComInsertItem(hoItems,h,"Item 3")) "Task" "1/4/2001" "1/6/2001" Nothing Nothing Send ComAddBar of hoItems (ComInsertItem(hoItems,h,"Item 4")) "Task" "1/2/2001" "1/8/2001" Nothing Nothing Set ComCellState of hoItems (ComItemByIndex(hoItems,1)) 0 to 1 Set ComExpandItem of hoItems h to True Send Destroy to hoItems Send ComEndUpdate End_Procedure |
1381 |
Is it possible to define the bar colors, and have the cumulative histogram showing the same colors
Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComSelBackColor to (ComBackColor(Self)) Set ComSelForeColor to (ComForeColor(Self)) Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComFirstVisibleDate of hoChart to "1/1/2001" Set ComHistogramVisible of hoChart to True Set ComHistogramHeight of hoChart to 64 Set ComPaneWidth of hoChart False to 128 Set ComHistogramView of hoChart to (OLEexHistogramNoGrouping + OLEexHistogramLeafItems + OLEexHistogramUnlockedItems + OLEexHistogramCheckedItems) Variant voBars Get ComBars of hoChart to voBars Handle hoBars Get Create (RefClass(cComBars)) to hoBars Set pvComObject of hoBars to voBars Variant voBar Get ComItem of hoBars "Task" to voBar Handle hoBar Get Create (RefClass(cComBar)) to hoBar Set pvComObject of hoBar to voBar Set ComColor of hoBar to (RGB(128,128,128)) Set ComHistogramType of hoBar to OLEexHistCumulative Set ComHistogramItems of hoBar to 6 Set ComHistogramRulerLinesColor of hoBar to (RGB(128,0,0)) Set ComHistogramBorderColor of hoBar to (RGB(1,0,0)) Set ComHistogramCumulativeColors of hoBar to 2 Set ComHistogramCumulativeColor of hoBar 0 to (RGB(0,0,255)) Set ComHistogramCumulativeColor of hoBar 1 to (RGB(0,0,255)) Set ComHistogramCumulativeOriginalColorBars of hoBar to False Set ComHistogramPattern of hoBar to (ComPattern(hoBar)) Set ComHistogramCumulativeShowLegend of hoBar to 65535 Send Destroy to hoBar Send Destroy to hoBars Send Destroy to hoChart Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Variant voColumn Get ComAdd of hoColumns "Column" to voColumn Handle hoColumn Get Create (RefClass(cComColumn)) to hoColumn Set pvComObject of hoColumn to voColumn Set ComDef of hoColumn OLEexCellHasCheckBox to True Set ComPartialCheck of hoColumn to True Send Destroy to hoColumn Send Destroy to hoColumns Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Variant h Get ComAddItem of hoItems "Project 1" to h Send ComAddBar of hoItems (ComInsertItem(hoItems,h,"Item 1")) "Task" "1/2/2001" "1/4/2001" Nothing Nothing Send ComAddBar of hoItems (ComInsertItem(hoItems,h,"Item 2")) "Task" "1/3/2001" "1/5/2001" Nothing Nothing Send ComAddBar of hoItems (ComInsertItem(hoItems,h,"Item 3")) "Task" "1/4/2001" "1/6/2001" Nothing Nothing Send ComAddBar of hoItems (ComInsertItem(hoItems,h,"Item 4")) "Task" "1/2/2001" "1/8/2001" Nothing Nothing Set ComCellState of hoItems (ComItemByIndex(hoItems,1)) 0 to 1 Set ComExpandItem of hoItems h to True Send Destroy to hoItems Send ComEndUpdate End_Procedure |
1380 |
Is it possible to show the non-working pattern over the bars
Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Get ComAdd of hoColumns "Tasks" to Nothing Send Destroy to hoColumns Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComNonworkingDaysPattern of hoChart to OLEexPatternBDiagonal Set ComNonworkingDaysColor of hoChart to (RGB(0,0,0)) Set ComPaneWidth of hoChart False to 40 Set ComFirstVisibleDate of hoChart to "6/20/2005" Set ComHistogramVisible of hoChart to True Set ComHistogramHeight of hoChart to 64 Set ComHistogramView of hoChart to (OLEexHistogramBackground + OLEexHistogramAllItems) Set ComLevelCount of hoChart to 2 Variant voBars Get ComBars of hoChart to voBars Handle hoBars Get Create (RefClass(cComBars)) to hoBars Set pvComObject of hoBars to voBars Variant voBar Get ComAdd of hoBars "Empty" to voBar Handle hoBar Get Create (RefClass(cComBar)) to hoBar Set pvComObject of hoBar to voBar Set ComColor of hoBar to (RGB(0,0,0)) Set ComPattern of hoBar to OLEexPatternFDiagonal Set ComShape of hoBar to OLEexShapeSolidFrameless Send Destroy to hoBar Variant voBar1 Get ComAdd of hoBars "Task:Empty" to voBar1 Handle hoBar1 Get Create (RefClass(cComBar)) to hoBar1 Set pvComObject of hoBar1 to voBar1 Set ComShortcut of hoBar1 to "Task" Set ComHistogramItems of hoBar1 to -5 Set ComHistogramCriticalValue of hoBar1 to 3 Set ComHistogramType of hoBar1 to OLEexHistOverload Set ComHistogramPattern of hoBar1 to (ComPattern(hoBar1)) Set ComDef of hoBar1 OLEexBarCaption to "<%=%258%> working days bar" Set ComDef of hoBar1 OLEexBarHAlignCaption to 18 Set ComDef of hoBar1 OLEexBarKeepWorkingCount to True Send Destroy to hoBar1 Send Destroy to hoBars Set ComUnitWidthNonworking of hoChart to -12 Variant voLevel Get ComLevel of hoChart 1 to voLevel Handle hoLevel Get Create (RefClass(cComLevel)) to hoLevel Set pvComObject of hoLevel to voLevel Set ComFormatLabel of hoLevel to "weekday(dvalue) in (0,6) ? `` : value" Send Destroy to hoLevel Send Destroy to hoChart Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Send ComAddBar of hoItems (ComAddItem(hoItems,"Task A")) "Task" "6/23/2005" "6/29/2005" "" Nothing Send ComAddBar of hoItems (ComAddItem(hoItems,"Task B")) "Task" "6/24/2005" "6/28/2005" "" Nothing Send Destroy to hoItems Send ComEndUpdate End_Procedure |
1379 |
I'm showing values from a ado recordset from sql 2005. When I try to edit a column with integers, it just skips back to the original numbers after pressing enter..., why
// Occurs after a new Item has been inserted to Items collection. Procedure OnComAddItem HITEM llItem Forward Send OnComAddItem llItem Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Send ComAddBar of hoItems llItem "Task" (ComCellValue(hoItems,llItem,2)) (ComCellValue(hoItems,llItem,4)) Nothing Nothing Send Destroy to hoItems End_Procedure // Fired when an internal error occurs. Procedure OnComError Integer llError String llDescription Forward Send OnComError llError llDescription Showln llError llDescription End_Procedure Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComFirstVisibleDate of hoChart to "8/3/1994" Set ComPaneWidth of hoChart False to 256 Set ComLevelCount of hoChart to 2 Set ComUnitScale of hoChart to OLEexDay Set ComFirstWeekDay of hoChart to OLEexMonday Set ComOverviewVisible of hoChart to OLEexOverviewShowAllVisible Send Destroy to hoChart Set ComColumnAutoResize to False Set ComContinueColumnScroll to False Variant rs Get Comcreateobject "ADOR.Recordset" to rs Send ComOpen "Orders" "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb" OLEadOpenKeyset OLEadLockReadOnly Nothing Set ComDataSource to rs Variant voItems1 Get ComItems to voItems1 Handle hoItems1 Get Create (RefClass(cComItems)) to hoItems1 Set pvComObject of hoItems1 to voItems1 Set ComAllowCellValueToItemBar of hoItems1 to True Send Destroy to hoItems1 Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Variant voColumn Get ComItem of hoColumns 2 to voColumn Handle hoColumn Get Create (RefClass(cComColumn)) to hoColumn Set pvComObject of hoColumn to voColumn Set ComDef of hoColumn OLEexCellValueToItemBarProperty to 1 Send Destroy to hoColumn Send Destroy to hoColumns Variant voColumns1 Get ComColumns to voColumns1 Handle hoColumns1 Get Create (RefClass(cComColumns)) to hoColumns1 Set pvComObject of hoColumns1 to voColumns1 Variant voColumn1 Get ComItem of hoColumns1 4 to voColumn1 Handle hoColumn1 Get Create (RefClass(cComColumn)) to hoColumn1 Set pvComObject of hoColumn1 to voColumn1 Set ComDef of hoColumn1 OLEexCellValueToItemBarProperty to 2 Send Destroy to hoColumn1 Send Destroy to hoColumns1 Send ComEndUpdate End_Procedure |
1378 |
Is it possible to reduce the non-working parts of the control
Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Get ComAdd of hoColumns "Tasks" to Nothing Send Destroy to hoColumns Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComPaneWidth of hoChart False to 40 Set ComFirstVisibleDate of hoChart to "6/20/2005" Set ComHistogramVisible of hoChart to True Set ComHistogramHeight of hoChart to 64 Set ComHistogramView of hoChart to OLEexHistogramAllItems Set ComLevelCount of hoChart to 2 Variant voBars Get ComBars of hoChart to voBars Handle hoBars Get Create (RefClass(cComBars)) to hoBars Set pvComObject of hoBars to voBars Variant voBar Get ComItem of hoBars "Task" to voBar Handle hoBar Get Create (RefClass(cComBar)) to hoBar Set pvComObject of hoBar to voBar Set ComHistogramType of hoBar to OLEexHistOverAllocation Set ComHistogramPattern of hoBar to (ComPattern(hoBar)) Send Destroy to hoBar Send Destroy to hoBars Set ComUnitWidthNonworking of hoChart to -8 Variant voLevel Get ComLevel of hoChart 1 to voLevel Handle hoLevel Get Create (RefClass(cComLevel)) to hoLevel Set pvComObject of hoLevel to voLevel Set ComFormatLabel of hoLevel to "weekday(dvalue) in (0,6) ? `` : value" Send Destroy to hoLevel Send Destroy to hoChart Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Variant h Get ComAddItem of hoItems "Task A" to h Send ComAddBar of hoItems h "Task" "6/23/2005" "6/29/2005" "" "4 working days bar" Set ComItemBar of hoItems h "" OLEexBarCanResize to False Set ComItemBar of hoItems h "" OLEexBarHAlignCaption to 18 Set ComItemBar of hoItems h "" OLEexBarEffort to 4 Set ComItemBar of hoItems h "" OLEexBarKeepWorkingCount to True Get ComAddItem of hoItems "Task B" to h Send ComAddBar of hoItems h "Task" "6/28/2005" "6/30/2005" "" "2 working days bar" Set ComItemBar of hoItems h "" OLEexBarCanResize to False Set ComItemBar of hoItems h "" OLEexBarHAlignCaption to 18 Set ComItemBar of hoItems h "" OLEexBarEffort to 2 Set ComItemBar of hoItems h "" OLEexBarKeepWorkingCount to True Send Destroy to hoItems Send ComEndUpdate End_Procedure |
1377 |
I don't want to see the "schedule"/show "workload" in non-working days part of the histogram
Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Get ComAdd of hoColumns "Tasks" to Nothing Send Destroy to hoColumns Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComPaneWidth of hoChart False to 40 Set ComFirstVisibleDate of hoChart to "6/20/2005" Set ComHistogramVisible of hoChart to True Set ComHistogramHeight of hoChart to 64 Set ComHistogramView of hoChart to OLEexHistogramAllItems Set ComLevelCount of hoChart to 2 Variant voBars Get ComBars of hoChart to voBars Handle hoBars Get Create (RefClass(cComBars)) to hoBars Set pvComObject of hoBars to voBars Variant voBar Get ComItem of hoBars "Task" to voBar Handle hoBar Get Create (RefClass(cComBar)) to hoBar Set pvComObject of hoBar to voBar Set ComHistogramType of hoBar to OLEexHistOverAllocation Set ComHistogramPattern of hoBar to (ComPattern(hoBar)) Send Destroy to hoBar Send Destroy to hoBars Set ComShowNonworkingDates of hoChart to False Set ComShowNonworkingUnits of hoChart to False Send Destroy to hoChart Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Variant h Get ComAddItem of hoItems "Task A" to h Send ComAddBar of hoItems h "Task" "6/23/2005" "6/29/2005" "" "4 working days bar" Set ComItemBar of hoItems h "" OLEexBarCanResize to False Set ComItemBar of hoItems h "" OLEexBarHAlignCaption to 18 Set ComItemBar of hoItems h "" OLEexBarEffort to 4 Set ComItemBar of hoItems h "" OLEexBarKeepWorkingCount to True Get ComAddItem of hoItems "Task B" to h Send ComAddBar of hoItems h "Task" "6/28/2005" "6/30/2005" "" "2 working days bar" Set ComItemBar of hoItems h "" OLEexBarCanResize to False Set ComItemBar of hoItems h "" OLEexBarHAlignCaption to 18 Set ComItemBar of hoItems h "" OLEexBarEffort to 2 Set ComItemBar of hoItems h "" OLEexBarKeepWorkingCount to True Send Destroy to hoItems Send ComEndUpdate End_Procedure |
1376 |
The control shows, and handles non-working days PERFECT, but how is it possible to reflect this in the Histogram. I don't want to "schedule"/show "workload" in non-working days...
Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Get ComAdd of hoColumns "Tasks" to Nothing Send Destroy to hoColumns Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComPaneWidth of hoChart False to 40 Set ComFirstVisibleDate of hoChart to "6/20/2005" Set ComHistogramVisible of hoChart to True Set ComHistogramHeight of hoChart to 64 Set ComHistogramView of hoChart to OLEexHistogramAllItems Set ComLevelCount of hoChart to 2 Variant voBars Get ComBars of hoChart to voBars Handle hoBars Get Create (RefClass(cComBars)) to hoBars Set pvComObject of hoBars to voBars Variant voBar Get ComItem of hoBars "Task" to voBar Handle hoBar Get Create (RefClass(cComBar)) to hoBar Set pvComObject of hoBar to voBar Set ComHistogramType of hoBar to OLEexHistOverAllocation Set ComHistogramPattern of hoBar to (ComPattern(hoBar)) Send Destroy to hoBar Send Destroy to hoBars Send Destroy to hoChart Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Variant h Get ComAddItem of hoItems "Task A" to h Send ComAddBar of hoItems h "Task" "6/23/2005" "6/29/2005" "" "4 working days bar" Set ComItemBar of hoItems h "" OLEexBarCanResize to False Set ComItemBar of hoItems h "" OLEexBarHAlignCaption to 18 Set ComItemBar of hoItems h "" OLEexBarEffort to 4 Set ComItemBar of hoItems h "" OLEexBarKeepWorkingCount to True Get ComAddItem of hoItems "Task B" to h Send ComAddBar of hoItems h "Task" "6/28/2005" "6/30/2005" "" "2 working days bar" Set ComItemBar of hoItems h "" OLEexBarCanResize to False Set ComItemBar of hoItems h "" OLEexBarHAlignCaption to 18 Set ComItemBar of hoItems h "" OLEexBarEffort to 2 Set ComItemBar of hoItems h "" OLEexBarKeepWorkingCount to True Send Destroy to hoItems Send ComEndUpdate End_Procedure |
1375 |
When I do select the button in the overview-zoom I want the scaling to change accordingly. Can I set different scales per selected zoom level
// Occurs once the user selects a new time scale unit in the overview zoom area. Procedure OnComOverviewZoom Forward Send OnComOverviewZoom Variant v Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Get ComUnitScale of hoChart to v Send Destroy to hoChart Showln v End_Procedure Procedure OnCreate Forward Send OnCreate Variant voChart1 Get ComChart to voChart1 Handle hoChart1 Get Create (RefClass(cComChart)) to hoChart1 Set pvComObject of hoChart1 to voChart1 Set ComPaneWidth of hoChart1 False to 0 Set ComLevelCount of hoChart1 to 2 Set ComOverviewVisible of hoChart1 to OLEexOverviewShowAllVisible Set ComAllowOverviewZoom of hoChart1 to OLEexAlwaysZoom Set ComLabel of hoChart1 OLEexSecond to "" Set ComLabel of hoChart1 OLEexYear to "" Send Destroy to hoChart1 End_Procedure |
1374 |
How do I display Icons instead of text in the overview zoom area
Procedure OnCreate Forward Send OnCreate Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=" Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComOverviewVisible of hoChart to OLEexOverviewShowAllVisible Set ComAllowOverviewZoom of hoChart to OLEexAlwaysZoom Set ComLabel of hoChart OLEexSecond to "" Set ComLabel of hoChart OLEexYear to "" Showln (ComOverviewZoomCaption(hoChart)) Set ComOverviewZoomCaption of hoChart to "Year|½Year|¼Year|Month|Third|<img>1</img>|Day|Hour|Min|Sec" Send Destroy to hoChart End_Procedure |
1373 |
How do I get it to only display Min, Hour, Day, Week , Month, ie remove Sec and Year in the overview area
Procedure OnCreate Forward Send OnCreate Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComOverviewVisible of hoChart to OLEexOverviewShowAllVisible Set ComAllowOverviewZoom of hoChart to OLEexAlwaysZoom Set ComLabel of hoChart OLEexSecond to "" Set ComLabel of hoChart OLEexYear to "" Send Destroy to hoChart End_Procedure |
1372 |
Is it possible to show quarter hours markers
Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComGridLineColor to (RGB(0,0,0)) Variant voAppearance Get ComVisualAppearance to voAppearance Handle hoAppearance Get Create (RefClass(cComAppearance)) to hoAppearance Set pvComObject of hoAppearance to voAppearance Get ComAdd of hoAppearance 3 "gBFLBCJwBAEHhEJAEGg4BdMIQAAYAQGKIYBkAKBQAGaAoDDUNw5QwAAwjSKkEwsACEIrjKCRShyCYZRhGcTAFBMIhkGoSZKlCIRVDCKYJDbKACSFKkNQ7AabZBgOQJVgOKovThKcIybQAASJCKRY7nUIIJA+SoDSRAbqhYIgASnKqLJAkACIJJAaRjHQdJxGKKMQANBghCZseKhWgkKIJUxAdLTWAAMQuaCoZ5icRAca2fJ+XzfeBYDgmAYNQbDcJhHCMMwXDaJZBiGJ4dimI4rR7JIDzDJ8cxbEKTZ5meg5boGRZNTrMQA0fQ9MynK6vahfOi7DpuaZnWrcMb2fYNZwrGq0bxoW58BwmP5/XrkNa4XgcVgmAUBA" to Nothing Send Destroy to hoAppearance Set ComHeaderHeight to 20 Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComFirstVisibleDate of hoChart to "1/1/2001" Set ComPaneWidth of hoChart False to 0 Set ComLevelCount of hoChart to 2 Set ComUnitScale of hoChart to OLEexHour Variant voLevel Get ComLevel of hoChart 0 to voLevel Handle hoLevel Get Create (RefClass(cComLevel)) to hoLevel Set pvComObject of hoLevel to voLevel Set ComAlignment of hoLevel to OLEexHOutside Set ComLabel of hoLevel to "<%dddd%>, <%mmmm%> <b><%d%></b>, <%yyyy%>" Set ComDrawTickLines of hoLevel to OLEexLevelSolidLine Send Destroy to hoLevel Variant voLevel1 Get ComLevel of hoChart 1 to voLevel1 Handle hoLevel1 Get Create (RefClass(cComLevel)) to hoLevel1 Set pvComObject of hoLevel1 to voLevel1 Set ComLabel of hoLevel1 to "<%hh%>:00" Set ComBackColor of hoLevel1 to |CI$3000000 Set ComDrawTickLines of hoLevel1 to OLEexLevelSolidLine Send Destroy to hoLevel1 Set ComDrawLevelSeparator of hoChart to OLEexLevelSolidLine Set ComUnitWidth of hoChart to 64 Set ComResizeUnitScale of hoChart to OLEexMinute Set ComResizeUnitCount of hoChart to 15 Send Destroy to hoChart Send ComEndUpdate End_Procedure |
1371 |
How can I ensure or always show the labels on the chart part, when scrolling the chart to left or right
Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComFirstVisibleDate of hoChart to "1/1/2001" Set ComPaneWidth of hoChart False to 0 Set ComLevelCount of hoChart to 2 Set ComUnitWidth of hoChart to 48 Set ComUnitScale of hoChart to OLEexHour Variant voLevel Get ComLevel of hoChart 0 to voLevel Handle hoLevel Get Create (RefClass(cComLevel)) to hoLevel Set pvComObject of hoLevel to voLevel Set ComAlignment of hoLevel to (OLEexHOutside + OLECenterAlignment) Set ComLabel of hoLevel to "<%dddd%>, <%mmmm%> <b><%d%></b>, <%yyyy%>" Send Destroy to hoLevel Variant voLevel1 Get ComLevel of hoChart 1 to voLevel1 Handle hoLevel1 Get Create (RefClass(cComLevel)) to hoLevel1 Set pvComObject of hoLevel1 to voLevel1 Set ComLabel of hoLevel1 to "<%hh%>:00" Send Destroy to hoLevel1 Send Destroy to hoChart Send ComEndUpdate End_Procedure |
1370 |
I associate the Start and End columns with bars, but some of them are not shown. What am I doing wrong
Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComMarkSearchColumn to False Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Set ComAllowCellValueToItemBar of hoItems to True Send Destroy to hoItems Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComLevelCount of hoChart to 2 Set ComFirstVisibleDate of hoChart to "12/25/2000" Set ComPaneWidth of hoChart False to 128 Send Destroy to hoChart Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Variant voColumn Get ComAdd of hoColumns "Start" to voColumn Handle hoColumn Get Create (RefClass(cComColumn)) to hoColumn Set pvComObject of hoColumn to voColumn Set ComDef of hoColumn OLEexCellValueToItemBarProperty to 1 Set ComDef of hoColumn OLEexCellValueToItemBarKey to "K1" Send Destroy to hoColumn Send Destroy to hoColumns Variant voColumns1 Get ComColumns to voColumns1 Handle hoColumns1 Get Create (RefClass(cComColumns)) to hoColumns1 Set pvComObject of hoColumns1 to voColumns1 Variant voColumn1 Get ComAdd of hoColumns1 "End" to voColumn1 Handle hoColumn1 Get Create (RefClass(cComColumn)) to hoColumn1 Set pvComObject of hoColumn1 to voColumn1 Set ComDef of hoColumn1 OLEexCellValueToItemBarProperty to 2 Set ComDef of hoColumn1 OLEexCellValueToItemBarKey to "K1" Send Destroy to hoColumn1 Send Destroy to hoColumns1 Variant voItems1 Get ComItems to voItems1 Handle hoItems1 Get Create (RefClass(cComItems)) to hoItems1 Set pvComObject of hoItems1 to voItems1 Send ComAddBar of hoItems1 (ComAddItem(hoItems1,Nothing)) "Task" "1/1/2001" "1/5/2001" "K1" Nothing Send ComAddBar of hoItems1 (ComAddItem(hoItems1,Nothing)) "Task" "1/2/2001" "1/6/2001" "K1" Nothing Send ComAddBar of hoItems1 (ComAddItem(hoItems1,Nothing)) "Task" "1/3/2001" "1/7/2001" "????" "????" Send Destroy to hoItems1 Send ComEndUpdate End_Procedure |
1369 |
How can I implement OLE Drag and Drop operation
// Occurs when the OLEDrag method is called. Procedure OnComOLEStartDrag Variant llData Integer llAllowedEffects Forward Send OnComOLEStartDrag llData llAllowedEffects // Data.SetData("your data to drag") Move 2 to AllowedEffects End_Procedure Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComPaneWidth of hoChart True to 0 Send Destroy to hoChart Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Get ComAdd of hoColumns "Default" to Nothing Send Destroy to hoColumns Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Get ComAddItem of hoItems "Item 1" to Nothing Get ComAddItem of hoItems "Item 2" to Nothing Get ComAddItem of hoItems "Item 3" to Nothing Get ComAddItem of hoItems "Item 4" to Nothing Get ComAddItem of hoItems "Item 5" to Nothing Send Destroy to hoItems Set ComOLEDropMode to OLEexOLEDropManual Send ComEndUpdate End_Procedure |
1368 |
I can not associate the bar's start and end properties with my start/end columns, only if the bar's key is empty or null. What can I do
// Occurs when user clicks on the cell's button. Procedure OnComButtonClick HITEM llItem Integer llColIndex Variant llKey Forward Send OnComButtonClick llItem llColIndex llKey Send ComBeginUpdate Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Variant voColumn Get ComItem of hoColumns "Tasks" to voColumn Handle hoColumn Get Create (RefClass(cComColumn)) to hoColumn Set pvComObject of hoColumn to voColumn Set ComDef of hoColumn OLEexCellValueToItemBarKey to "B" Send Destroy to hoColumn Variant voColumn1 Get ComItem of hoColumns "Start" to voColumn1 Handle hoColumn1 Get Create (RefClass(cComColumn)) to hoColumn1 Set pvComObject of hoColumn1 to voColumn1 Set ComDef of hoColumn1 OLEexCellValueToItemBarKey to "B" Send Destroy to hoColumn1 Variant voColumn2 Get ComItem of hoColumns "End" to voColumn2 Handle hoColumn2 Get Create (RefClass(cComColumn)) to hoColumn2 Set pvComObject of hoColumn2 to voColumn2 Set ComDef of hoColumn2 OLEexCellValueToItemBarKey to "B" Send Destroy to hoColumn2 Send Destroy to hoColumns Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Set ComCellValue of hoItems llItem 1 to "B" Set ComItemBar of hoItems 0 "B" OLEexBarColor to 0 Set ComItemBar of hoItems 0 "A" OLEexBarColor to 16775408 Send Destroy to hoItems Send ComEndUpdate End_Procedure Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Variant voColumns1 Get ComColumns to voColumns1 Handle hoColumns1 Get Create (RefClass(cComColumns)) to hoColumns1 Set pvComObject of hoColumns1 to voColumns1 Variant voColumn3 Get ComAdd of hoColumns1 "Tasks" to voColumn3 Handle hoColumn3 Get Create (RefClass(cComColumn)) to hoColumn3 Set pvComObject of hoColumn3 to voColumn3 Set ComWidth of hoColumn3 to 32 Set ComDef of hoColumn3 OLEexCellValueToItemBarProperty to 3 Set ComDef of hoColumn3 OLEexCellValueToItemBarKey to "A" Send Destroy to hoColumn3 Variant voColumn4 Get ComAdd of hoColumns1 "Start" to voColumn4 Handle hoColumn4 Get Create (RefClass(cComColumn)) to hoColumn4 Set pvComObject of hoColumn4 to voColumn4 Set ComDef of hoColumn4 OLEexCellValueToItemBarProperty to 1 Set ComDef of hoColumn4 OLEexCellValueToItemBarKey to "A" Variant voEditor Get ComEditor of hoColumn4 to voEditor Handle hoEditor Get Create (RefClass(cComEditor)) to hoEditor Set pvComObject of hoEditor to voEditor Set ComEditType of hoEditor to OLEDateType Send Destroy to hoEditor Send Destroy to hoColumn4 Variant voColumn5 Get ComAdd of hoColumns1 "End" to voColumn5 Handle hoColumn5 Get Create (RefClass(cComColumn)) to hoColumn5 Set pvComObject of hoColumn5 to voColumn5 Set ComDef of hoColumn5 OLEexCellValueToItemBarProperty to 2 Set ComDef of hoColumn5 OLEexCellValueToItemBarKey to "A" Variant voEditor1 Get ComEditor of hoColumn5 to voEditor1 Handle hoEditor1 Get Create (RefClass(cComEditor)) to hoEditor1 Set pvComObject of hoEditor1 to voEditor1 Set ComEditType of hoEditor1 to OLEDateType Send Destroy to hoEditor1 Send Destroy to hoColumn5 Send Destroy to hoColumns1 Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComFirstVisibleDate of hoChart to "9/20/2006" Set ComAllowLinkBars of hoChart to True Set ComAllowCreateBar of hoChart to OLEexNoCreateBar Set ComLevelCount of hoChart to 2 Set ComPaneWidth of hoChart False to 196 Variant voBars Get ComBars of hoChart to voBars Handle hoBars Get Create (RefClass(cComBars)) to hoBars Set pvComObject of hoBars to voBars Variant voBar Get ComItem of hoBars "Task" to voBar Handle hoBar Get Create (RefClass(cComBar)) to hoBar Set pvComObject of hoBar to voBar Set ComPattern of hoBar to OLEexPatternBDiagonal Set ComOverlaidType of hoBar to (OLEexOverlaidBarsStackAutoArrange + OLEexOverlaidBarsStack) Set ComOverlaid of hoBar OLEexOverlaidBarsTransparent to 80 Send Destroy to hoBar Send Destroy to hoBars Send Destroy to hoChart Variant voItems1 Get ComItems to voItems1 Handle hoItems1 Get Create (RefClass(cComItems)) to hoItems1 Set pvComObject of hoItems1 to voItems1 Set ComLockedItemCount of hoItems1 OLEexTop to 1 Variant h Get ComLockedItem of hoItems1 OLEexTop 0 to h Set ComCellValue of hoItems1 h 0 to "Select" Set ComCellHasButton of hoItems1 h 0 to True Set ComCellMerge of hoItems1 h 1 to 2 Set ComCellValue of hoItems1 h 1 to "A" Variant voEditor2 Get ComCellEditor of hoItems1 h 1 to voEditor2 Handle hoEditor2 Get Create (RefClass(cComEditor)) to hoEditor2 Set pvComObject of hoEditor2 to voEditor2 Set ComEditType of hoEditor2 to OLEEditType Send Destroy to hoEditor2 Send Destroy to hoItems1 Variant voItems2 Get ComItems to voItems2 Handle hoItems2 Get Create (RefClass(cComItems)) to hoItems2 Set pvComObject of hoItems2 to voItems2 Set ComAllowCellValueToItemBar of hoItems2 to True Get ComAddItem of hoItems2 "Task 1" to h Send ComAddBar of hoItems2 h "Task" "9/21/2006" "9/24/2006" "A" "A" Send ComAddBar of hoItems2 h "Task" "9/25/2006" "9/28/2006" "B" "B" Set ComItemBar of hoItems2 h "B" OLEexBarColor to 16775408 Get ComAddItem of hoItems2 "Task 2" to h Send ComAddBar of hoItems2 h "Task" "9/22/2006" "9/25/2006" "A" "A" Send ComAddBar of hoItems2 h "Task" "9/26/2006" "9/29/2006" "B" "B" Set ComItemBar of hoItems2 h "B" OLEexBarColor to 16775408 Send Destroy to hoItems2 Send ComEndUpdate End_Procedure |
1367 |
How can I determine the order of the events
// Occurs when the user links two bars using the mouse. Procedure OnComAddLink String llLinkKey Forward Send OnComAddLink llLinkKey Showln "AddLink" llLinkKey End_Procedure // Fired after an item is expanded (collapsed). Procedure OnComAfterExpandItem HITEM llItem Forward Send OnComAfterExpandItem llItem Showln "AfterExpandItem" llItem End_Procedure // Notifies at runtime when a link between two bars is possible. Procedure OnComAllowLink HITEM llStartItem Variant llStartBarKey HITEM llEndItem Variant llEndBarKey Variant llLinkKey Boolean llCancel Forward Send OnComAllowLink llStartItem llStartBarKey llEndItem llEndBarKey llLinkKey llCancel Showln "AllowLink" llStartItem llStartBarKey llEndItem llEndBarKey llLinkKey End_Procedure // Occurs when an anchor element is clicked. Procedure OnComAnchorClick String llAnchorID String llOptions Forward Send OnComAnchorClick llAnchorID llOptions Showln "AnchorClick" llAnchorID llOptions End_Procedure // Occurs just before moving a bar from current item to another item. Procedure OnComBarParentChange HITEM llItem Variant llKey HITEM llNewItem Boolean llCancel Forward Send OnComBarParentChange llItem llKey llNewItem llCancel Showln "BarParentChange" llItem llKey llNewItem End_Procedure // Occurs when a bar is moved or resized. Procedure OnComBarResize HITEM llItem Variant llKey Forward Send OnComBarResize llItem llKey Showln "BarResize" llItem llKey End_Procedure // Occurs when a bar is moving or resizing. Procedure OnComBarResizing HITEM llItem Variant llKey Forward Send OnComBarResizing llItem llKey Showln "BarResizing" llItem llKey End_Procedure // Fired before an item is about to be expanded (collapsed). Procedure OnComBeforeExpandItem HITEM llItem Variant llCancel Forward Send OnComBeforeExpandItem llItem llCancel Showln "BeforeExpandItem" llItem End_Procedure // Occurs when user clicks on the cell's button. Procedure OnComButtonClick HITEM llItem Integer llColIndex Variant llKey Forward Send OnComButtonClick llItem llColIndex llKey Showln "ButtonClick" llItem llColIndex llKey End_Procedure // Fired after the user clicks on the image's cell area. Procedure OnComCellImageClick HITEM llItem Integer llColIndex Forward Send OnComCellImageClick llItem llColIndex Showln "CellImageClick" llItem llColIndex End_Procedure // Fired after cell's state has been changed. Procedure OnComCellStateChanged HITEM llItem Integer llColIndex Forward Send OnComCellStateChanged llItem llColIndex Showln "CellStateChanged" llItem llColIndex End_Procedure // Occurs when the user changes the cell's content. Procedure OnComChange HITEM llItem Integer llColIndex Variant llNewValue Forward Send OnComChange llItem llColIndex llNewValue Showln "Change" llItem llColIndex llNewValue End_Procedure // Occurs after the chart has been changed. Procedure OnComChartEndChanging OLEBarOperationEnum llOperation Forward Send OnComChartEndChanging llOperation Showln "ChartEndChanging" llOperation End_Procedure // Occurs when the user selects objects in the chart area. Procedure OnComChartSelectionChanged Forward Send OnComChartSelectionChanged Showln "ChartSelectionChanged" End_Procedure // Occurs when the chart is about to be changed. Procedure OnComChartStartChanging OLEBarOperationEnum llOperation Forward Send OnComChartStartChanging llOperation Showln "ChartStartChanging" llOperation End_Procedure // Occurs when the user presses and then releases the left mouse button over the tree control. Procedure OnComClick Forward Send OnComClick Showln "Click" End_Procedure // Fired after the user clicks on column's header. Procedure OnComColumnClick Variant llColumn Forward Send OnComColumnClick llColumn Showln "ColumnClick" End_Procedure // Fired when the user creates a new bar. Procedure OnComCreateBar HITEM llItem DateTime llDateStart DateTime llDateEnd Forward Send OnComCreateBar llItem llDateStart llDateEnd Showln "CreateBar" llItem llDateStart llDateEnd End_Procedure // Occurs when the first visible date is changed. Procedure OnComDateChange Forward Send OnComDateChange Showln "DateChange" End_Procedure // Occurs when the user dblclk the left mouse button over an object. Procedure OnComDblClick Short llShift OLE_XPOS_PIXELS llX OLE_YPOS_PIXELS llY Forward Send OnComDblClick llShift llX llY Showln "DblClick" llShift llX llY Send ComEdit Nothing End_Procedure // Occurs just before editing the focused cell. Procedure OnComEdit HITEM llItem Integer llColIndex Boolean llCancel Forward Send OnComEdit llItem llColIndex llCancel Showln "Edit" llItem llColIndex End_Procedure // Occurs when the edit operation ends. Procedure OnComEditClose Forward Send OnComEditClose Showln "EditClose" End_Procedure // Occurs when the edit operation starts. Procedure OnComEditOpen Forward Send OnComEditOpen Showln "EditOpen" End_Procedure // Occurs when the filter was changed. Procedure OnComFilterChange Forward Send OnComFilterChange Showln "FilterChange" End_Procedure // Notifies your application that the filter is about to change. Procedure OnComFilterChanging Forward Send OnComFilterChanging Showln "FilterChanging" End_Procedure // Occurs when a cell gets the focus. Procedure OnComFocusChanged Forward Send OnComFocusChanged Showln "FocusChanged" End_Procedure // Notifies your application that a date is about to be magnified. Procedure OnComInsideZoom DateTime llDateTime Forward Send OnComInsideZoom llDateTime Showln "InsideZoom" llDateTime End_Procedure // Occurs when the user presses a key while an object has the focus. Procedure OnComKeyDown Short llKeyCode Short llShift Forward Send OnComKeyDown llKeyCode llShift Showln "KeyDown" llKeyCode llShift End_Procedure // Occurs when the user presses and releases an ANSI key. Procedure OnComKeyPress Short llKeyAscii Forward Send OnComKeyPress llKeyAscii Showln "KeyPress" llKeyAscii End_Procedure // Occurs when the user releases a key while an object has the focus. Procedure OnComKeyUp Short llKeyCode Short llShift Forward Send OnComKeyUp llKeyCode llShift Showln "KeyUp" llKeyCode llShift End_Procedure // Occurs when column's position or column's size is changed. Procedure OnComLayoutChanged Forward Send OnComLayoutChanged Showln "LayoutChanged" End_Procedure // Occurs when the user presses a mouse button. Procedure OnComMouseDown Short llButton Short llShift OLE_XPOS_PIXELS llX OLE_YPOS_PIXELS llY Forward Send OnComMouseDown llButton llShift llX llY Showln "MouseDown" llButton llShift llX llY End_Procedure // Occurs when the user moves the mouse. Procedure OnComMouseMove Short llButton Short llShift OLE_XPOS_PIXELS llX OLE_YPOS_PIXELS llY Forward Send OnComMouseMove llButton llShift llX llY End_Procedure // Occurs when the user releases a mouse button. Procedure OnComMouseUp Short llButton Short llShift OLE_XPOS_PIXELS llX OLE_YPOS_PIXELS llY Forward Send OnComMouseUp llButton llShift llX llY Showln "MouseUp" llButton llShift llX llY End_Procedure // Occurs when the scroll position has been changed. Procedure OnComOffsetChanged Boolean llHorizontal Integer llNewVal Forward Send OnComOffsetChanged llHorizontal llNewVal Showln "OffsetChanged" llHorizontal llNewVal End_Procedure // Occurs when the right range of the scroll has been changed. Procedure OnComOversizeChanged Boolean llHorizontal Integer llNewVal Forward Send OnComOversizeChanged llHorizontal llNewVal Showln "OversizeChanged" llHorizontal llNewVal End_Procedure // Occurs once the user selects a new time scale unit in the overview zoom area. Procedure OnComOverviewZoom Forward Send OnComOverviewZoom Showln "OverviewZoom" End_Procedure // Fired when right mouse button is clicked Procedure OnComRClick Forward Send OnComRClick Showln "RClick" End_Procedure // Occurs when the user clicks a button in the scrollbar. Procedure OnComScrollButtonClick OLEScrollBarEnum llScrollBar OLEScrollPartEnum llScrollPart Forward Send OnComScrollButtonClick llScrollBar llScrollPart Showln "ScrollButtonClick" llScrollBar llScrollPart End_Procedure // Fired after a new item has been selected. Procedure OnComSelectionChanged Forward Send OnComSelectionChanged Showln "SelectionChanged" End_Procedure // Fired when the control sorts a column. Procedure OnComSort Forward Send OnComSort Showln "Sort" End_Procedure Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=" Set ComDrawGridLines to OLEexAllLines Set ComLinesAtRoot to OLEexLinesAtRoot Set ComGridLineStyle to OLEexGridLinesHDash Set ComAutoEdit to False Set ComExpandOnDblClick to False Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComAllowInsideZoom of hoChart to True Set ComOverviewVisible of hoChart to OLEexOverviewShowAllVisible Set ComAllowOverviewZoom of hoChart to OLEexAlwaysZoom Set ComPaneWidth of hoChart False to 128 Set ComFirstVisibleDate of hoChart to "1/1/2001" Set ComDrawGridLines of hoChart to OLEexAllLines Set ComGridLineStyle of hoChart to (OLEexGridLinesVSolid + OLEexGridLinesHDash) Set ComLevelCount of hoChart to 2 Variant voLevel Get ComLevel of hoChart 0 to voLevel Handle hoLevel Get Create (RefClass(cComLevel)) to hoLevel Set pvComObject of hoLevel to voLevel Set ComDrawGridLines of hoLevel to True Send Destroy to hoLevel Variant voBars Get ComBars of hoChart to voBars Handle hoBars Get Create (RefClass(cComBars)) to hoBars Set pvComObject of hoBars to voBars Variant voBar Get ComItem of hoBars "Task" to voBar Handle hoBar Get Create (RefClass(cComBar)) to hoBar Set pvComObject of hoBar to voBar Set ComPattern of hoBar to OLEexPatternSolid Send Destroy to hoBar Send Destroy to hoBars Set ComUnitScale of hoChart to OLEexDay Set ComLabel of hoChart OLEexSecond to "" Set ComLabel of hoChart OLEexMinute to "" Set ComLabel of hoChart OLEexHour to "" Send Destroy to hoChart Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Variant voColumn Get ComAdd of hoColumns "Column" to voColumn Handle hoColumn Get Create (RefClass(cComColumn)) to hoColumn Set pvComObject of hoColumn to voColumn Set ComDisplayFilterButton of hoColumn to True Set ComDef of hoColumn OLEexCellHasCheckBox to True Variant voEditor Get ComEditor of hoColumn to voEditor Handle hoEditor Get Create (RefClass(cComEditor)) to hoEditor Set pvComObject of hoEditor to voEditor Set ComEditType of hoEditor to OLEEditType Send Destroy to hoEditor Send Destroy to hoColumn Variant voColumn1 Get ComAdd of hoColumns "Button" to voColumn1 Handle hoColumn1 Get Create (RefClass(cComColumn)) to hoColumn1 Set pvComObject of hoColumn1 to voColumn1 Set ComAllowSizing of hoColumn1 to False Set ComWidth of hoColumn1 to 18 Set ComDef of hoColumn1 OLEexCellHasButton to True Send Destroy to hoColumn1 Send Destroy to hoColumns Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Variant h Get ComAddItem of hoItems "parent" to h Set ComCellImage of hoItems h 0 to 1 Send ComAddBar of hoItems h "Task" "1/2/2001" "1/5/2001" "A" "<a>A</a>" Set ComItemBar of hoItems h "A" OLEexBarHAlignCaption to 18 Set ComItemBar of hoItems h "A" OLEexBarCanMoveToAnother to True Set ComItemBar of hoItems h "A" OLEexBarToolTip to "This is a bit of text that should be shown when cursor hovers the bar" Send ComAddBar of hoItems h "Task" "1/8/2001" "1/15/2001" "B" "<a>B</a>" Set ComItemBar of hoItems h "B" OLEexBarHAlignCaption to 18 Set ComItemBar of hoItems h "B" OLEexBarCanMoveToAnother to True Get ComInsertItem of hoItems h "" "child" to Nothing Set ComExpandItem of hoItems h to True Send Destroy to hoItems Send ComEndUpdate End_Procedure |
1366 |
How can I change the chart's horizontal grid lines
Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComDrawGridLines to OLEexAllLines Set ComGridLineStyle to OLEexGridLinesHDash Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComPaneWidth of hoChart False to 48 Set ComFirstVisibleDate of hoChart to "1/1/2001" Set ComDrawGridLines of hoChart to OLEexAllLines Set ComGridLineStyle of hoChart to (OLEexGridLinesVSolid + OLEexGridLinesHDash) Set ComLevelCount of hoChart to 2 Variant voLevel Get ComLevel of hoChart 0 to voLevel Handle hoLevel Get Create (RefClass(cComLevel)) to hoLevel Set pvComObject of hoLevel to voLevel Set ComDrawGridLines of hoLevel to True Send Destroy to hoLevel Variant voBars Get ComBars of hoChart to voBars Handle hoBars Get Create (RefClass(cComBars)) to hoBars Set pvComObject of hoBars to voBars Variant voBar Get ComItem of hoBars "Task" to voBar Handle hoBar Get Create (RefClass(cComBar)) to hoBar Set pvComObject of hoBar to voBar Set ComPattern of hoBar to OLEexPatternSolid Send Destroy to hoBar Send Destroy to hoBars Send Destroy to hoChart Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Get ComAdd of hoColumns "Column" to Nothing Send Destroy to hoColumns Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Variant h Get ComAddItem of hoItems "Item 1" to h Send ComAddBar of hoItems h "Task" "1/2/2001" "1/5/2001" "A" Nothing Send ComAddBar of hoItems h "Task" "1/8/2001" "1/15/2001" "B" Nothing Send Destroy to hoItems Send ComEndUpdate End_Procedure |
1365 |
Is there any way to determine whether the ADO operations fails
// Occurs after a new Item has been inserted to Items collection. Procedure OnComAddItem HITEM llItem Forward Send OnComAddItem llItem Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Send ComAddBar of hoItems llItem "Task" (ComCellValue(hoItems,llItem,2)) (ComCellValue(hoItems,llItem,4)) Nothing Nothing Send Destroy to hoItems End_Procedure // Fired when an internal error occurs. Procedure OnComError Integer llError String llDescription Forward Send OnComError llError llDescription Showln llError llDescription End_Procedure Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComFirstVisibleDate of hoChart to "8/3/1994" Set ComPaneWidth of hoChart False to 256 Set ComLevelCount of hoChart to 2 Set ComUnitScale of hoChart to OLEexDay Set ComFirstWeekDay of hoChart to OLEexMonday Set ComOverviewVisible of hoChart to OLEexOverviewShowAllVisible Send Destroy to hoChart Set ComColumnAutoResize to False Set ComContinueColumnScroll to False Variant rs Get Comcreateobject "ADOR.Recordset" to rs Send ComOpen "Orders" "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb" OLEadOpenKeyset OLEadLockReadOnly Nothing Set ComDataSource to rs Variant voItems1 Get ComItems to voItems1 Handle hoItems1 Get Create (RefClass(cComItems)) to hoItems1 Set pvComObject of hoItems1 to voItems1 Set ComAllowCellValueToItemBar of hoItems1 to True Send Destroy to hoItems1 Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Variant voColumn Get ComItem of hoColumns 2 to voColumn Handle hoColumn Get Create (RefClass(cComColumn)) to hoColumn Set pvComObject of hoColumn to voColumn Set ComDef of hoColumn OLEexCellValueToItemBarProperty to 1 Send Destroy to hoColumn Send Destroy to hoColumns Variant voColumns1 Get ComColumns to voColumns1 Handle hoColumns1 Get Create (RefClass(cComColumns)) to hoColumns1 Set pvComObject of hoColumns1 to voColumns1 Variant voColumn1 Get ComItem of hoColumns1 4 to voColumn1 Handle hoColumn1 Get Create (RefClass(cComColumn)) to hoColumn1 Set pvComObject of hoColumn1 to voColumn1 Set ComDef of hoColumn1 OLEexCellValueToItemBarProperty to 2 Send Destroy to hoColumn1 Send Destroy to hoColumns1 Send ComEndUpdate End_Procedure |
1364 |
Is it possible to select a column instead sorting it
// Fired after the user clicks on column's header. Procedure OnComColumnClick Variant llColumn Forward Send OnComColumnClick llColumn // Column.Selected = True Send ComBeginUpdate Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Variant voColumn Get ComItem of hoColumns 0 to voColumn Handle hoColumn Get Create (RefClass(cComColumn)) to hoColumn Set pvComObject of hoColumn to voColumn Set ComSelected of hoColumn to False Send Destroy to hoColumn Send Destroy to hoColumns Variant voColumns1 Get ComColumns to voColumns1 Handle hoColumns1 Get Create (RefClass(cComColumns)) to hoColumns1 Set pvComObject of hoColumns1 to voColumns1 Variant voColumn1 Get ComItem of hoColumns1 1 to voColumn1 Handle hoColumn1 Get Create (RefClass(cComColumn)) to hoColumn1 Set pvComObject of hoColumn1 to voColumn1 Set ComSelected of hoColumn1 to False Send Destroy to hoColumn1 Send Destroy to hoColumns1 Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Send ComSelectAll of hoItems Send Destroy to hoItems Send ComEndUpdate End_Procedure Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComMarkSearchColumn to False Set ComShowFocusRect to False Set ComSingleSel to False Set ComFullRowSelect to OLEexRectSel Set ComSortOnClick to OLEexNoSort Variant voColumns2 Get ComColumns to voColumns2 Handle hoColumns2 Get Create (RefClass(cComColumns)) to hoColumns2 Set pvComObject of hoColumns2 to voColumns2 Get ComAdd of hoColumns2 "Column1" to Nothing Get ComAdd of hoColumns2 "Column2" to Nothing Send Destroy to hoColumns2 Variant voItems1 Get ComItems to voItems1 Handle hoItems1 Get Create (RefClass(cComItems)) to hoItems1 Set pvComObject of hoItems1 to voItems1 Set ComCellValue of hoItems1 (ComAddItem(hoItems1,"One")) 1 to "Three" Set ComCellValue of hoItems1 (ComAddItem(hoItems1,"Two")) 1 to "Four" Send ComSelectAll of hoItems1 Send Destroy to hoItems1 Send ComEndUpdate End_Procedure |
1363 |
I am using the exRectSel, and clicking the first column, has no effect, instead if I click other it works as it should
Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComSearchColumnIndex to -1 Set ComFullRowSelect to OLEexRectSel Set ComShowFocusRect to False Set ComMarkSearchColumn to False Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Get ComAdd of hoColumns "Column1" to Nothing Get ComAdd of hoColumns "Column2" to Nothing Send Destroy to hoColumns Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Set ComCellValue of hoItems (ComAddItem(hoItems,1)) 1 to 2 Set ComCellValue of hoItems (ComAddItem(hoItems,3)) 1 to 4 Set ComCellValue of hoItems (ComAddItem(hoItems,5)) 1 to 6 Send Destroy to hoItems Send ComEndUpdate End_Procedure |
1362 |
Is it possible to display empty strings for 0 values
|
1361 |
Is it possible to display empty strings for 0 values
|
1360 |
How can I hide a date from the chart view, when I display hours instead days
Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComHeaderHeight to 32 Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComFirstVisibleDate of hoChart to "6/8/2011" Set ComAdjustLevelsToBase of hoChart to True Set ComPaneWidth of hoChart False to 0 Set ComLevelCount of hoChart to 2 Set ComAllowInsideZoom of hoChart to True Variant voLevel Get ComLevel of hoChart 0 to voLevel Handle hoLevel Get Create (RefClass(cComLevel)) to hoLevel Set pvComObject of hoLevel to voLevel Set ComAlignment of hoLevel to OLECenterAlignment Set ComLabel of hoLevel to "<b><%d%>-<%mmm%>-<%yyyy%>" Set ComUnit of hoLevel to OLEexDay Send Destroy to hoLevel Variant voLevel1 Get ComLevel of hoChart 1 to voLevel1 Handle hoLevel1 Get Create (RefClass(cComLevel)) to hoLevel1 Set pvComObject of hoLevel1 to voLevel1 Set ComLabel of hoLevel1 to "<%h%>" Set ComCount of hoLevel1 to 8 Set ComUnit of hoLevel1 to OLEexHour Set ComFormatLabel of hoLevel1 to "date(int(dvalue)) case (#06/08/2011# : (int(value) case ( 0 : 'Shift <b>1</b><br>23/20'; 8 : 'Shift <b>2</b><br>38/30' ; 16 : 'Shift <b>3</b><br>24/24' ) ) ; #06/09/2011# : (int(value) case ( 0 : 'Shift <b>1</b><br>15/20'; 8 : 'Shift <b>2</b><br>30/32' ; 16 : 'Shift <b>3</b><br>26/24' ) ) )" Send Destroy to hoLevel1 Set ComUnitWidth of hoChart to 64 Set ComNonworkingDays of hoChart to 0 Set ComAllowInsideZoom of hoChart to True Variant voInsideZoomFormat Get ComDefaultInsideZoomFormat of hoChart to voInsideZoomFormat Handle hoInsideZoomFormat Get Create (RefClass(cComInsideZoomFormat)) to hoInsideZoomFormat Set pvComObject of hoInsideZoomFormat to voInsideZoomFormat Set ComInsideUnit of hoInsideZoomFormat to OLEexMinute Send Destroy to hoInsideZoomFormat Set ComAllowResizeInsideZoom of hoChart to False Set ComInsideZoomOnDblClick of hoChart to False Variant voInsideZooms Get ComInsideZooms of hoChart to voInsideZooms Handle hoInsideZooms Get Create (RefClass(cComInsideZooms)) to hoInsideZooms Set pvComObject of hoInsideZooms to voInsideZooms Set ComSplitBaseLevel of hoInsideZooms to False Set ComDefaultWidth of hoInsideZooms to 0 Send Destroy to hoInsideZooms Variant voInsideZooms1 Get ComInsideZooms of hoChart to voInsideZooms1 Handle hoInsideZooms1 Get Create (RefClass(cComInsideZooms)) to hoInsideZooms1 Set pvComObject of hoInsideZooms1 to voInsideZooms1 Get ComAdd of hoInsideZooms1 "6/9/2011 8:00:00 AM" to Nothing Get ComAdd of hoInsideZooms1 "6/9/2011 4:00:00 PM" to Nothing Send Destroy to hoInsideZooms1 Send Destroy to hoChart Send ComEndUpdate End_Procedure |
1359 |
I’ve created a skin (EBN) for the bars of my chart, with rounded top corners. The problem, is that these rounded corners are applied also at beginning and the end of the non working units. Is it possible to show a different picture/skin for the non-working part of the bars
Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Variant voAppearance Get ComVisualAppearance to voAppearance Handle hoAppearance Get Create (RefClass(cComAppearance)) to hoAppearance Set pvComObject of hoAppearance to voAppearance Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing Send Destroy to hoAppearance Variant voAppearance1 Get ComVisualAppearance to voAppearance1 Handle hoAppearance1 Get Create (RefClass(cComAppearance)) to hoAppearance1 Set pvComObject of hoAppearance1 to voAppearance1 Get ComAdd of hoAppearance1 2 "c:\exontrol\images\pushed.ebn" to Nothing Send Destroy to hoAppearance1 Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Get ComAdd of hoColumns "Task" to Nothing Send Destroy to hoColumns Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComPaneWidth of hoChart False to 128 Send Destroy to hoChart Variant voChart1 Get ComChart to voChart1 Handle hoChart1 Get Create (RefClass(cComChart)) to hoChart1 Set pvComObject of hoChart1 to voChart1 Variant voBars Get ComBars of hoChart1 to voBars Handle hoBars Get Create (RefClass(cComBars)) to hoBars Set pvComObject of hoBars to voBars Variant voBar Get ComItem of hoBars "Task" to voBar Handle hoBar Get Create (RefClass(cComBar)) to hoBar Set pvComObject of hoBar to voBar Set ComColor of hoBar to |CI$1000000 Send Destroy to hoBar Variant voBar1 Get ComItem of hoBars "Split" to voBar1 Handle hoBar1 Get Create (RefClass(cComBar)) to hoBar1 Set pvComObject of hoBar1 to voBar1 Set ComColor of hoBar1 to |CI$2000000 Send Destroy to hoBar1 Variant voBar2 Get ComAdd of hoBars "Task:Split" to voBar2 Handle hoBar2 Get Create (RefClass(cComBar)) to hoBar2 Set pvComObject of hoBar2 to voBar2 Set ComShortcut of hoBar2 to "TS" Send Destroy to hoBar2 Send Destroy to hoBars Send Destroy to hoChart1 Variant voChart2 Get ComChart to voChart2 Handle hoChart2 Get Create (RefClass(cComChart)) to hoChart2 Set pvComObject of hoChart2 to voChart2 Set ComFirstVisibleDate of hoChart2 to "1/1/2001" Send Destroy to hoChart2 Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Send ComAddBar of hoItems (ComAddItem(hoItems,"Task")) "TS" "1/2/2001" "1/16/2001" Nothing Nothing Send Destroy to hoItems Send ComEndUpdate End_Procedure |
1358 |
How do I display the names of the tasks on bars but not in the middle of the bar (left or right)
Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Get ComAdd of hoColumns "Tasks" to Nothing Send Destroy to hoColumns Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComFirstVisibleDate of hoChart to "12/27/2000" Set ComPaneWidth of hoChart False to 128 Variant voBars Get ComBars of hoChart to voBars Handle hoBars Get Create (RefClass(cComBars)) to hoBars Set pvComObject of hoBars to voBars Variant voBar Get ComItem of hoBars "Task" to voBar Handle hoBar Get Create (RefClass(cComBar)) to hoBar Set pvComObject of hoBar to voBar Set ComPattern of hoBar to OLEexPatternDot Set ComHeight of hoBar to 15 Send Destroy to hoBar Send Destroy to hoBars Send Destroy to hoChart Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Variant h Get ComAddItem of hoItems "Task 1" to h Send ComAddBar of hoItems h "Task" "1/3/2001" "1/8/2001" "K1" "<b>to do</b> " Set ComItemBar of hoItems h "K1" OLEexBarHAlignCaption to 2 Get ComAddItem of hoItems "Task 2" to h Send ComAddBar of hoItems h "Task" "1/3/2001" "1/8/2001" "K2" "<b>to do</b>" Set ComItemBar of hoItems h "K2" OLEexBarHAlignCaption to 18 Get ComAddItem of hoItems "Task 3" to h Send ComAddBar of hoItems h "Task" "1/3/2001" "1/8/2001" "K1" " <b>to do</b>" Set ComItemBar of hoItems h "K1" OLEexBarHAlignCaption to 0 Get ComAddItem of hoItems "Task 4" to h Send ComAddBar of hoItems h "Task" "1/3/2001" "1/8/2001" "K2" "<b>to do</b>" Set ComItemBar of hoItems h "K2" OLEexBarHAlignCaption to 16 Send Destroy to hoItems Send ComEndUpdate End_Procedure |
1357 |
How can I get the list of items as they are displayed
Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComBackColorAlternate to (RGB(240,240,240)) Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Get ComAdd of hoColumns "Names" to Nothing Send Destroy to hoColumns Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Get ComAddItem of hoItems "Mantel" to Nothing Get ComAddItem of hoItems "Mechanik" to Nothing Get ComAddItem of hoItems "Motor" to Nothing Get ComAddItem of hoItems "Murks" to Nothing Get ComAddItem of hoItems "Märchen" to Nothing Get ComAddItem of hoItems "Möhren" to Nothing Get ComAddItem of hoItems "Mühle" to Nothing Send Destroy to hoItems Variant voColumns1 Get ComColumns to voColumns1 Handle hoColumns1 Get Create (RefClass(cComColumns)) to hoColumns1 Set pvComObject of hoColumns1 to voColumns1 Variant voColumn Get ComItem of hoColumns1 0 to voColumn Handle hoColumn Get Create (RefClass(cComColumn)) to hoColumn Set pvComObject of hoColumn to voColumn Set ComSortOrder of hoColumn to OLESortAscending Send Destroy to hoColumn Send Destroy to hoColumns1 Send ComEndUpdate Showln (ComGetItems(Self,1)) End_Procedure |
1356 |
How can I disable the left and right arrows to move to next cell while editing
Procedure OnCreate Forward Send OnCreate Variant v Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Variant voColumn Get ComAdd of hoColumns "Edit" to voColumn Handle hoColumn Get Create (RefClass(cComColumn)) to hoColumn Set pvComObject of hoColumn to voColumn Get ComEditor of hoColumn to v Send Destroy to hoColumn Send Destroy to hoColumns Variant var_Editor Move v to var_Editor Set ComEditType to OLEEditType Set ComOption OLEexLeftArrow to 0 Set ComOption OLEexRightArrow to 0 Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Get ComAddItem of hoItems "Cell 1" to Nothing Get ComAddItem of hoItems "Cell 2" to Nothing Get ComAddItem of hoItems "Cell 3" to Nothing Send Destroy to hoItems End_Procedure |
1355 |
Is it possible to define a bar that is treated as a non-working hour so user can move it at runtime
Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComFirstVisibleDate of hoChart to "1/1/2001" Set ComLevelCount of hoChart to 2 Set ComPaneWidth of hoChart False to 48 Set ComAllowNonworkingBars of hoChart to True Variant voBars Get ComBars of hoChart to voBars Handle hoBars Get Create (RefClass(cComBars)) to hoBars Set pvComObject of hoBars to voBars Variant voBar Get ComAdd of hoBars "Task:Split" to voBar Handle hoBar Get Create (RefClass(cComBar)) to hoBar Set pvComObject of hoBar to voBar Set ComShortcut of hoBar to "Task" Send Destroy to hoBar Send Destroy to hoBars Set ComUnitScale of hoChart to OLEexHour Variant voLevel Get ComLevel of hoChart 1 to voLevel Handle hoLevel Get Create (RefClass(cComLevel)) to hoLevel Set pvComObject of hoLevel to voLevel Set ComLabel of hoLevel to "<font ;4><%hh%>" Send Destroy to hoLevel Set ComUnitWidth of hoChart to 12 Set ComNonworkingDaysPattern of hoChart to OLEexPatternBDiagonal Set ComNonworkingDays of hoChart to 0 Send Destroy to hoChart Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Get ComAdd of hoColumns "Tasks" to Nothing Send Destroy to hoColumns Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Variant h Get ComAddItem of hoItems "Machine" to h Set ComItemNonworkingUnits of hoItems h False to "0" Send ComAddBar of hoItems h "" "1/1/2001 9:00:00 AM" "1/1/2001 11:00:00 AM" "A" "pause" Set ComItemBar of hoItems h "A" OLEexBarTreatAsNonworking to True Send ComAddBar of hoItems h "Task" "1/1/2001 12:00:00 PM" "1/1/2001 5:00:00 PM" "Z" Nothing Set ComItemBar of hoItems h "Z" OLEexBarKeepWorkingCount to True Send Destroy to hoItems Send ComEndUpdate End_Procedure |
1354 |
Is it possible to customize the chart's header so I can display shift and other values
Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComHeaderHeight to 32 Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComFirstVisibleDate of hoChart to "6/8/2011" Set ComAdjustLevelsToBase of hoChart to True Set ComPaneWidth of hoChart False to 0 Set ComLevelCount of hoChart to 2 Variant voLevel Get ComLevel of hoChart 0 to voLevel Handle hoLevel Get Create (RefClass(cComLevel)) to hoLevel Set pvComObject of hoLevel to voLevel Set ComAlignment of hoLevel to OLECenterAlignment Set ComLabel of hoLevel to "<b><%d%> - <%mmmm%> - <%yyyy%>" Set ComUnit of hoLevel to OLEexDay Send Destroy to hoLevel Variant voLevel1 Get ComLevel of hoChart 1 to voLevel1 Handle hoLevel1 Get Create (RefClass(cComLevel)) to hoLevel1 Set pvComObject of hoLevel1 to voLevel1 Set ComLabel of hoLevel1 to "<%h%>" Set ComCount of hoLevel1 to 8 Set ComUnit of hoLevel1 to OLEexHour Set ComFormatLabel of hoLevel1 to "date(int(dvalue)) case (#06/08/2011# : (int(value) case ( 0 : 'Shift <b>1</b><br>23/20'; 8 : 'Shift <b>2</b><br>38/30' ; 16 : 'Shift <b>3</b><br>24/24' ) ) ; #06/09/2011# : (int(value) case ( 0 : 'Shift <b>1</b><br>15/20'; 8 : 'Shift <b>2</b><br>30/32' ; 16 : 'Shift <b>3</b><br>26/24' ) ) )" Send Destroy to hoLevel1 Set ComUnitWidth of hoChart to 64 Set ComNonworkingDays of hoChart to 0 Send Destroy to hoChart Send ComEndUpdate End_Procedure |
1353 |
How can I change both start and end dates of the bar
Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Get ComAdd of hoColumns "Tasks" to Nothing Send Destroy to hoColumns Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComPaneWidth of hoChart False to 64 Set ComFirstVisibleDate of hoChart to "6/19/2005" Send Destroy to hoChart Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Variant h Get ComAddItem of hoItems "Test" to h Send ComAddBar of hoItems h "Task" "6/22/2005" "6/27/2005" "t1" Nothing Send ComAddBar of hoItems h (ComItemBar(hoItems,h,"t1",OLEexBarName)) "6/21/2005" "6/22/2005" "t1" Nothing Send Destroy to hoItems Send ComEndUpdate End_Procedure |
1352 |
Is it possible to add new rows, as I type like in Excel
// Occurs when the edit operation ends. Procedure OnComEditClose Forward Send OnComEditClose Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Get ComAddItem of hoItems "" to Nothing Send Destroy to hoItems End_Procedure Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComAutoEdit to True Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Variant voColumn Get ComAdd of hoColumns "Default" to voColumn Handle hoColumn Get Create (RefClass(cComColumn)) to hoColumn Set pvComObject of hoColumn to voColumn Variant voEditor Get ComEditor of hoColumn to voEditor Handle hoEditor Get Create (RefClass(cComEditor)) to hoEditor Set pvComObject of hoEditor to voEditor Set ComEditType of hoEditor to OLEEditType Send Destroy to hoEditor Send Destroy to hoColumn Send Destroy to hoColumns Set ComFullRowSelect to OLEexColumnSel Variant voItems1 Get ComItems to voItems1 Handle hoItems1 Get Create (RefClass(cComItems)) to hoItems1 Set pvComObject of hoItems1 to voItems1 Get ComAddItem of hoItems1 "" to Nothing Send Destroy to hoItems1 Set ComDrawGridLines to OLEexAllLines Set ComScrollBars to OLEexDisableBoth Send ComEndUpdate End_Procedure |
1351 |
How do I load bars from my table/database
// Occurs after a new Item has been inserted to Items collection. Procedure OnComAddItem HITEM llItem Forward Send OnComAddItem llItem Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Send ComAddBar of hoItems llItem "Task" (ComCellValue(hoItems,llItem,2)) (ComCellValue(hoItems,llItem,4)) Nothing Nothing Send Destroy to hoItems End_Procedure Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComFirstVisibleDate of hoChart to "8/3/1994" Set ComPaneWidth of hoChart False to 256 Set ComLevelCount of hoChart to 2 Set ComUnitScale of hoChart to OLEexDay Set ComFirstWeekDay of hoChart to OLEexMonday Set ComOverviewVisible of hoChart to OLEexOverviewShowAllVisible Send Destroy to hoChart Set ComColumnAutoResize to False Set ComContinueColumnScroll to False Variant rs Get Comcreateobject "ADOR.Recordset" to rs Send ComOpen "Orders" "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb" OLEadOpenStatic OLEadLockOptimistic Nothing Set ComDataSource to rs Variant voItems1 Get ComItems to voItems1 Handle hoItems1 Get Create (RefClass(cComItems)) to hoItems1 Set pvComObject of hoItems1 to voItems1 Set ComAllowCellValueToItemBar of hoItems1 to True Send Destroy to hoItems1 Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Variant voColumn Get ComItem of hoColumns 2 to voColumn Handle hoColumn Get Create (RefClass(cComColumn)) to hoColumn Set pvComObject of hoColumn to voColumn Set ComDef of hoColumn OLEexCellValueToItemBarProperty to 1 Send Destroy to hoColumn Send Destroy to hoColumns Variant voColumns1 Get ComColumns to voColumns1 Handle hoColumns1 Get Create (RefClass(cComColumns)) to hoColumns1 Set pvComObject of hoColumns1 to voColumns1 Variant voColumn1 Get ComItem of hoColumns1 4 to voColumn1 Handle hoColumn1 Get Create (RefClass(cComColumn)) to hoColumn1 Set pvComObject of hoColumn1 to voColumn1 Set ComDef of hoColumn1 OLEexCellValueToItemBarProperty to 2 Send Destroy to hoColumn1 Send Destroy to hoColumns1 Send ComEndUpdate End_Procedure |
1350 |
Is posible to reduce the size of the picture to be shown in the bar's caption
Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComHTMLPicture "pic1" to "c:\exontrol\images\zipdisk.gif" Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Get ComAdd of hoColumns "Task" to Nothing Send Destroy to hoColumns Set ComScrollBySingleLine to True Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComFirstVisibleDate of hoChart to "1/1/2001" Set ComPaneWidth of hoChart False to 78 Send Destroy to hoChart Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Variant h Get ComAddItem of hoItems "Default-Size" to h Set ComItemHeight of hoItems h to 48 Send ComAddBar of hoItems h "Task" "1/2/2001" "1/6/2001" "K1" "<img>pic1</img>" Get ComAddItem of hoItems "Custom-Size" to h Send ComAddBar of hoItems h "Task" "1/2/2001" "1/6/2001" "K2" "<img>pic1:18</img>" Send Destroy to hoItems Send ComEndUpdate End_Procedure |
1349 |
Is posible to reduce the size of the picture to be shown in the column's caption
Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComHTMLPicture "pic1" to "c:\exontrol\images\zipdisk.gif" Set ComHeaderHeight to 48 Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Variant voColumn Get ComAdd of hoColumns "DefaultSize" to voColumn Handle hoColumn Get Create (RefClass(cComColumn)) to hoColumn Set pvComObject of hoColumn to voColumn Set ComHTMLCaption of hoColumn to "Default-Size <img>pic1</img> Picture" Send Destroy to hoColumn Send Destroy to hoColumns Variant voColumns1 Get ComColumns to voColumns1 Handle hoColumns1 Get Create (RefClass(cComColumns)) to hoColumns1 Set pvComObject of hoColumns1 to voColumns1 Variant voColumn1 Get ComAdd of hoColumns1 "CustomSize" to voColumn1 Handle hoColumn1 Get Create (RefClass(cComColumn)) to hoColumn1 Set pvComObject of hoColumn1 to voColumn1 Set ComHTMLCaption of hoColumn1 to "Custom-Size <img>pic1:16</img> Picture" Send Destroy to hoColumn1 Send Destroy to hoColumns1 Send ComEndUpdate End_Procedure |
1348 |
Is it possible to display the selected dates using a solid color instead vertical lines
Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComPaneWidth of hoChart False to 128 Set ComFirstVisibleDate of hoChart to "1/1/2008" Set ComMarkTodayColor of hoChart to (ComBackColor(hoChart)) Set ComLevelCount of hoChart to 2 Set ComMarkSelectDateColor of hoChart to |CI$7fcbc0ff Set ComSelectLevel of hoChart to 1 Set ComSelectDate of hoChart "1/8/2008" to True Set ComSelectDate of hoChart "1/9/2008" to True Set ComSelectDate of hoChart "1/10/2008" to True Send Destroy to hoChart Set ComDefaultItemHeight to 72 Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Get ComAdd of hoColumns "Default" to Nothing Send Destroy to hoColumns Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Send ComAddBar of hoItems (ComAddItem(hoItems,"")) "" "1/7/2008" "1/12/2008" "" "<b>MarkSelectDateColor(32)</b><br>should be <font ;11><i>0x7F000000 + RGB(rr,gg,bb)</i></font><br> or in the format as: <font ;11><i>0x7FBBGGRR</i></font>, <br>where BB is the hexa value for Blue, <br>GG for grean and so on." Send Destroy to hoItems Send ComEndUpdate End_Procedure |
1347 |
How can I show the cells using a different background color based on the condition I have
Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComSelBackMode to OLEexTransparent Set ComShowFocusRect to False Variant voConditionalFormats Get ComConditionalFormats to voConditionalFormats Handle hoConditionalFormats Get Create (RefClass(cComConditionalFormats)) to hoConditionalFormats Set pvComObject of hoConditionalFormats to voConditionalFormats Variant voConditionalFormat Get ComAdd of hoConditionalFormats "dbl(%1)-dbl(%0) = 1" Nothing to voConditionalFormat Handle hoConditionalFormat Get Create (RefClass(cComConditionalFormat)) to hoConditionalFormat Set pvComObject of hoConditionalFormat to voConditionalFormat Set ComBackColor of hoConditionalFormat to (RGB(255,0,0)) Set ComApplyTo of hoConditionalFormat to |CI$1 Send Destroy to hoConditionalFormat Variant voConditionalFormat1 Get ComAdd of hoConditionalFormats "dbl(%0)-dbl(%1) = 3" Nothing to voConditionalFormat1 Handle hoConditionalFormat1 Get Create (RefClass(cComConditionalFormat)) to hoConditionalFormat1 Set pvComObject of hoConditionalFormat1 to voConditionalFormat1 Set ComBackColor of hoConditionalFormat1 to (RGB(255,255,0)) Set ComApplyTo of hoConditionalFormat1 to OLEexFormatToColumns Send Destroy to hoConditionalFormat1 Variant voConditionalFormat2 Get ComAdd of hoConditionalFormats "dbl(%1)-dbl(%0) = 4" Nothing to voConditionalFormat2 Handle hoConditionalFormat2 Get Create (RefClass(cComConditionalFormat)) to hoConditionalFormat2 Set pvComObject of hoConditionalFormat2 to voConditionalFormat2 Set ComForeColor of hoConditionalFormat2 to (RGB(128,128,128)) Set ComBold of hoConditionalFormat2 to True Set ComApplyTo of hoConditionalFormat2 to OLEexFormatToItems Send Destroy to hoConditionalFormat2 Send Destroy to hoConditionalFormats Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Variant voColumn Get ComAdd of hoColumns "C1" to voColumn Handle hoColumn Get Create (RefClass(cComColumn)) to hoColumn Set pvComObject of hoColumn to voColumn Set ComWidth of hoColumn to 8 Send Destroy to hoColumn Variant voColumn1 Get ComAdd of hoColumns "C2" to voColumn1 Handle hoColumn1 Get Create (RefClass(cComColumn)) to hoColumn1 Set pvComObject of hoColumn1 to voColumn1 Set ComWidth of hoColumn1 to 8 Send Destroy to hoColumn1 Get ComAdd of hoColumns "" to Nothing Send Destroy to hoColumns Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComPaneWidth of hoChart True to 0 Send Destroy to hoChart Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Set ComCellValue of hoItems (ComAddItem(hoItems,2)) 1 to 3 Set ComCellValue of hoItems (ComAddItem(hoItems,5)) 1 to 2 Set ComCellValue of hoItems (ComAddItem(hoItems,5)) 1 to 6 Set ComCellValue of hoItems (ComAddItem(hoItems,2)) 1 to 6 Send Destroy to hoItems Send ComEndUpdate End_Procedure |
1346 |
How can I specify the frame's color for all Task bars
Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Get ComAdd of hoColumns "Task" to Nothing Send Destroy to hoColumns Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComFirstVisibleDate of hoChart to "1/1/2001" Set ComPaneWidth of hoChart False to 128 Variant voBars Get ComBars of hoChart to voBars Handle hoBars Get Create (RefClass(cComBars)) to hoBars Set pvComObject of hoBars to voBars Variant voBar Get ComItem of hoBars "Task" to voBar Handle hoBar Get Create (RefClass(cComBar)) to hoBar Set pvComObject of hoBar to voBar Set ComDef of hoBar OLEexBarFrameColor to 255 Send Destroy to hoBar Send Destroy to hoBars Send Destroy to hoChart Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 1")) "Task" "1/2/2001" "1/5/2001" "K1" Nothing Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 2")) "Task" "1/2/2001" "1/5/2001" "K2" Nothing Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 3")) "Task" "1/2/2001" "1/5/2001" "K3" Nothing Send Destroy to hoItems Send ComEndUpdate End_Procedure |
1345 |
Is it possible to change the bar's frame color
Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComDefaultItemHeight to 25 Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Get ComAdd of hoColumns "Task" to Nothing Send Destroy to hoColumns Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComFirstVisibleDate of hoChart to "1/1/2001" Set ComPaneWidth of hoChart False to 128 Set ComDrawGridLines of hoChart to OLEexHLines Set ComNonworkingDays of hoChart to 0 Variant voBars Get ComBars of hoChart to voBars Handle hoBars Get Create (RefClass(cComBars)) to hoBars Set pvComObject of hoBars to voBars Variant voBar Get ComItem of hoBars "Task" to voBar Handle hoBar Get Create (RefClass(cComBar)) to hoBar Set pvComObject of hoBar to voBar Set ComHeight of hoBar to 15 Send Destroy to hoBar Send Destroy to hoBars Send Destroy to hoChart Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Variant h Get ComAddItem of hoItems "Default" to h Send ComAddBar of hoItems h "Task" "1/2/2001" "1/5/2001" "K1" Nothing Get ComAddItem of hoItems "Red-Frame" to h Send ComAddBar of hoItems h "Task" "1/3/2001" "1/6/2001" "K1" Nothing Set ComItemBar of hoItems h "K1" OLEexBarFrameColor to 255 Get ComAddItem of hoItems "Green-ThickFrame" to h Send ComAddBar of hoItems h "Task" "1/4/2001" "1/7/2001" "K1" Nothing Set ComItemBar of hoItems h "K1" OLEexBarPattern to 4099 Set ComItemBar of hoItems h "K1" OLEexBarFrameColor to 32768 Get ComAddItem of hoItems "Red-ThickFrame/Shadow" to h Send ComAddBar of hoItems h "Task" "1/5/2001" "1/8/2001" "K1" Nothing Set ComItemBar of hoItems h "K1" OLEexBarPattern to 12291 Set ComItemBar of hoItems h "K1" OLEexBarFrameColor to 255 Send Destroy to hoItems Send ComEndUpdate End_Procedure |
1344 |
I need to customize the labels on the chart. Is it possible
Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComHeaderHeight to 32 Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComFirstVisibleDate of hoChart to "7/1/2011" Set ComAdjustLevelsToBase of hoChart to True Set ComPaneWidth of hoChart False to 0 Set ComLevelCount of hoChart to 2 Variant voLevel Get ComLevel of hoChart 0 to voLevel Handle hoLevel Get Create (RefClass(cComLevel)) to hoLevel Set pvComObject of hoLevel to voLevel Set ComAlignment of hoLevel to OLECenterAlignment Set ComLabel of hoLevel to "<b><%d%> - <%mmmm%> - <%yyyy%>" Set ComUnit of hoLevel to OLEexDay Send Destroy to hoLevel Variant voLevel1 Get ComLevel of hoChart 1 to voLevel1 Handle hoLevel1 Get Create (RefClass(cComLevel)) to hoLevel1 Set pvComObject of hoLevel1 to voLevel1 Set ComLabel of hoLevel1 to "<%h%>" Set ComCount of hoLevel1 to 8 Set ComUnit of hoLevel1 to OLEexHour Set ComFormatLabel of hoLevel1 to "int(value) case ( 0 : 'Shift <b>1</b><br><font ;11>' + yearday(dvalue) + '</font>/365 ' ; 8 : 'Shift <b>2</b><br>' + weekday(dvalue) + '/20'; 16 : 'Shift <b>3</b><br>' + (weekday(dvalue) case ( 0 : '12/22'; 1 : '12/23'; 2 : '2/3'; 3 : '12/13'; 4 : '22/34' ; 5 : '102-<fgcolor=FF0000><b>31</b></bgcolor>'; 6 : '1/1' ) ) ) " Send Destroy to hoLevel1 Set ComUnitWidth of hoChart to 64 Set ComNonworkingDays of hoChart to 0 Send Destroy to hoChart Send ComEndUpdate End_Procedure |
1343 |
Is it possible to show a frame around the bar
Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComDefaultItemHeight to 25 Variant voAppearance Get ComVisualAppearance to voAppearance Handle hoAppearance Get Create (RefClass(cComAppearance)) to hoAppearance Set pvComObject of hoAppearance to voAppearance Get ComAdd of hoAppearance 1 "gBFLBCJwBAEHhEJAEGg4BOUMQAAYAQGKIYBkAKBQAGaAoDDYMgzQwAAxDELMEwsACEIrjKCVIgkHYJRjGEZxMAsEwjAoaQChEZRUhEMgxDDIIyAJIcaw0GSEZwgOQZBiOEYnDANkIYJDSIYHTZIUzTJAdGSVJKNKAoKCaEgORo5SpNUghBDYKQTJyeagkaaRVCWLplRCNIwWNJdVwjEaQaaiarKNqKNpSViAEqSdKEZRLOyRZyiKQMEreY4EUDQcxUPYMNYaAC6AAparpbwCFpSYpRND3TaEE4jSLKAA0HD6QqebIDDJaFq6PbVXSTOLPNhgPQcWxeVJBXjLExUALGSYLC6nKayHZcHACKK5VbVW6ZZDdNy/BLQeD4QANG4riuNJriMV4dgWVgHh+ZpgCeEIQEQJIgGkMYdA6JwjC0VAAmaJgQgmPp4lCWgSCiaB+DKIYIjqQpllMf6JgYAoAmASAWAaAZggQDJ/gKYJIDYDoDmECBGAOBBhEgVgUgSYRoGYGYGCGKB2BCBwhmiBgLggIgoHoJIJGGKIeCiBYiiiLgXgCIpohoMIMGKGJODSCwghiZg6g6Y5InYPh/lAECAg" to Nothing Get ComAdd of hoAppearance 2 "CP:1 2 2 -2 -2" to Nothing Get ComAdd of hoAppearance 3 "CP:1 -5 -5 5 5" to Nothing Get ComAdd of hoAppearance 4 "XP:Window 19 1" to Nothing Get ComAdd of hoAppearance 5 "XP:TreeView 2 1" to Nothing Send Destroy to hoAppearance Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Get ComAdd of hoColumns "Task" to Nothing Send Destroy to hoColumns Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComFirstVisibleDate of hoChart to "1/1/2001" Set ComPaneWidth of hoChart False to 128 Set ComDrawGridLines of hoChart to OLEexHLines Send Destroy to hoChart Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Variant h Get ComAddItem of hoItems "Default" to h Send ComAddBar of hoItems h "Task" "1/2/2001" "1/5/2001" "K1" Nothing Get ComAddItem of hoItems "Red-Frame" to h Send ComAddBar of hoItems h "Task" "1/3/2001" "1/6/2001" "K1" Nothing Set ComItemBar of hoItems h "K1" OLEexBarFrameColor to 255 Get ComAddItem of hoItems "Green-ThickFrame" to h Send ComAddBar of hoItems h "Task" "1/4/2001" "1/7/2001" "K1" Nothing Set ComItemBar of hoItems h "K1" OLEexBarPattern to 4099 Set ComItemBar of hoItems h "K1" OLEexBarFrameColor to 32768 Get ComAddItem of hoItems "Red-ThickFrame/Shadow" to h Send ComAddBar of hoItems h "Task" "1/4/2001" "1/7/2001" "K1" Nothing Set ComItemBar of hoItems h "K1" OLEexBarPattern to 12291 Set ComItemBar of hoItems h "K1" OLEexBarFrameColor to 255 Get ComAddItem of hoItems "EBN-Frame-Border" to h Send ComAddBar of hoItems h "Task" "1/5/2001" "1/9/2001" "K2" Nothing Set ComItemBar of hoItems h "K2" OLEexBarFrameColor to 16777216 Get ComAddItem of hoItems "EBN-Inside Frame" to h Send ComAddBar of hoItems h "Task" "1/9/2001" "1/13/2001" "K3" Nothing Set ComItemBar of hoItems h "K3" OLEexBarFrameColor to 33554432 Get ComAddItem of hoItems "EBN-Outside Frame" to h Send ComAddBar of hoItems h "Task" "1/15/2001" "1/18/2001" "K4" Nothing Set ComItemBar of hoItems h "K4" OLEexBarFrameColor to 50331648 Get ComAddItem of hoItems "EBN-XP Close Button" to h Send ComAddBar of hoItems h "Task" "1/15/2001" "1/18/2001" "K5" Nothing Set ComItemBar of hoItems h "K5" OLEexBarFrameColor to 67108864 Get ComAddItem of hoItems "EBN-XP TreeView Glyph" to h Send ComAddBar of hoItems h "Task" "1/15/2001" "1/18/2001" "K6" Nothing Set ComItemBar of hoItems h "K6" OLEexBarFrameColor to 83886080 Send Destroy to hoItems Send ComEndUpdate End_Procedure |
1342 |
Currently your control, provides customization up to Year,Month,Day,Hours,etc. I would like to add Shifts in a day. Shortly, I need to customize the chart's header. Is it possible
Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComFirstVisibleDate of hoChart to "7/1/2011" Set ComAdjustLevelsToBase of hoChart to True Set ComPaneWidth of hoChart False to 0 Set ComLevelCount of hoChart to 2 Variant voLevel Get ComLevel of hoChart 0 to voLevel Handle hoLevel Get Create (RefClass(cComLevel)) to hoLevel Set pvComObject of hoLevel to voLevel Set ComAlignment of hoLevel to OLECenterAlignment Set ComLabel of hoLevel to "<b><%d%> - <%mmmm%> - <%yyyy%>" Set ComUnit of hoLevel to OLEexDay Send Destroy to hoLevel Variant voLevel1 Get ComLevel of hoChart 1 to voLevel1 Handle hoLevel1 Get Create (RefClass(cComLevel)) to hoLevel1 Set pvComObject of hoLevel1 to voLevel1 Set ComLabel of hoLevel1 to "<%h%>" Set ComCount of hoLevel1 to 8 Set ComUnit of hoLevel1 to OLEexHour Set ComReplaceLabel of hoLevel1 0 to " Shift 1" Set ComReplaceLabel of hoLevel1 8 to " Shift 2" Set ComReplaceLabel of hoLevel1 16 to " Shift 3" Send Destroy to hoLevel1 Set ComUnitWidth of hoChart to 48 Set ComNonworkingDays of hoChart to 0 Send Destroy to hoChart Send ComEndUpdate End_Procedure |
1341 |
The exbartootip shows dates after you moved or resized the bar. My question is during the move or resizing of bar(you click on bar and drag it,during that time) , can we display the new dates simultaneously so we will know where we want to move or resize the bar to
Procedure OnCreate Forward Send OnCreate Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Get ComAdd of hoColumns "Task" to Nothing Send Destroy to hoColumns Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComPaneWidth of hoChart False to 64 Set ComFirstVisibleDate of hoChart to "1/1/2001" Set ComDrawDateTicker of hoChart to True Set ComDateTickerLabel of hoChart to "<%mmm%> <%d%><br><b><%yyyy%>" Send Destroy to hoChart Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Variant h Get ComAddItem of hoItems "Tasks A" to h Send ComAddBar of hoItems h "Task" "1/2/2001" "1/4/2001" "K1" Nothing Send ComAddBar of hoItems h "Task" "1/5/2001" "1/9/2001" "K2" Nothing Set ComSelectableItem of hoItems (ComAddItem(hoItems,Nothing)) to False Get ComAddItem of hoItems "Tasks B" to h Send ComAddBar of hoItems h "Task" "1/3/2001" "1/5/2001" "K1" Nothing Send ComAddBar of hoItems h "Task" "1/8/2001" "1/11/2001" "K2" Nothing Send Destroy to hoItems End_Procedure |
1340 |
Is it possible to assign a tooltip automatically to all bars, so it can display the start and end, without specifying the IexBarToolTip for each bar
Procedure OnCreate Forward Send OnCreate Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Get ComAdd of hoColumns "Task" to Nothing Send Destroy to hoColumns Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComPaneWidth of hoChart False to 64 Set ComFirstVisibleDate of hoChart to "1/1/2001" Variant voBars Get ComBars of hoChart to voBars Handle hoBars Get Create (RefClass(cComBars)) to hoBars Set pvComObject of hoBars to voBars Variant voBar Get ComItem of hoBars "Task" to voBar Handle hoBar Get Create (RefClass(cComBar)) to hoBar Set pvComObject of hoBar to voBar Set ComDef of hoBar OLEexBarToolTip to "<b><%=%9 + '/' + %C0%></b><br><upline><dotline>Start: <%=%1%><br>End: <%=%2%><br>Duration: <%=(%2-%1)%><br>Working: <%=%258%>" Send Destroy to hoBar Send Destroy to hoBars Send Destroy to hoChart Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Variant h Get ComAddItem of hoItems "Tasks A" to h Send ComAddBar of hoItems h "Task" "1/2/2001" "1/4/2001" "K1" Nothing Send ComAddBar of hoItems h "Task" "1/5/2001" "1/9/2001" "K2" Nothing Get ComAddItem of hoItems "Tasks B" to h Send ComAddBar of hoItems h "Task" "1/3/2001" "1/5/2001" "K1" Nothing Send ComAddBar of hoItems h "Task" "1/8/2001" "1/11/2001" "K2" Nothing Send Destroy to hoItems End_Procedure |
1339 |
How can I change the color, font, bold etc for the items/cells in the same column or for the entire column
Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Variant voConditionalFormats Get ComConditionalFormats to voConditionalFormats Handle hoConditionalFormats Get Create (RefClass(cComConditionalFormats)) to hoConditionalFormats Set pvComObject of hoConditionalFormats to voConditionalFormats Variant voConditionalFormat Get ComAdd of hoConditionalFormats "1" Nothing to voConditionalFormat Handle hoConditionalFormat Get Create (RefClass(cComConditionalFormat)) to hoConditionalFormat Set pvComObject of hoConditionalFormat to voConditionalFormat Set ComBold of hoConditionalFormat to True Set ComForeColor of hoConditionalFormat to (RGB(255,0,0)) Set ComApplyTo of hoConditionalFormat to |CI$1 Send Destroy to hoConditionalFormat Send Destroy to hoConditionalFormats Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Get ComAdd of hoColumns "C1" to Nothing Send Destroy to hoColumns Variant voColumns1 Get ComColumns to voColumns1 Handle hoColumns1 Get Create (RefClass(cComColumns)) to hoColumns1 Set pvComObject of hoColumns1 to voColumns1 Variant voColumn Get ComAdd of hoColumns1 "C2" to voColumn Handle hoColumn Get Create (RefClass(cComColumn)) to hoColumn Set pvComObject of hoColumn to voColumn Set ComHeaderBold of hoColumn to True Set ComHTMLCaption of hoColumn to "<fgcolor=FF0000>C2" Send Destroy to hoColumn Send Destroy to hoColumns1 Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Set ComCellValue of hoItems (ComAddItem(hoItems,10)) 1 to 11 Set ComCellValue of hoItems (ComAddItem(hoItems,12)) 1 to 13 Send Destroy to hoItems Send ComEndUpdate End_Procedure |
1338 |
How can I remove a date-time zone
// Occurs when the user presses and then releases the left mouse button over the tree control. Procedure OnComClick Forward Send OnComClick Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Send ComRemoveTimeZone of hoChart "Z1" Send Destroy to hoChart End_Procedure Procedure OnCreate Forward Send OnCreate Variant voChart1 Get ComChart to voChart1 Handle hoChart1 Get Create (RefClass(cComChart)) to hoChart1 Set pvComObject of hoChart1 to voChart1 Set ComPaneWidth of hoChart1 False to 18 Set ComLevelCount of hoChart1 to 2 Set ComFirstVisibleDate of hoChart1 to "1/1/2010" Send ComMarkTimeZone of hoChart1 "Z1" "1/4/2010" "1/8/2010" 16744544 Nothing Send Destroy to hoChart1 End_Procedure |
1337 |
How can I filter the check-boxes (method 2)
Procedure OnCreate Forward Send OnCreate Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Variant voColumn Get ComAdd of hoColumns "Check" to voColumn Handle hoColumn Get Create (RefClass(cComColumn)) to hoColumn Set pvComObject of hoColumn to voColumn Variant voEditor Get ComEditor of hoColumn to voEditor Handle hoEditor Get Create (RefClass(cComEditor)) to hoEditor Set pvComObject of hoEditor to voEditor Set ComEditType of hoEditor to OLECheckValueType Set ComOption of hoEditor OLEexCheckValue2 to 1 Send Destroy to hoEditor Set ComDisplayFilterButton of hoColumn to True Set ComDisplayFilterPattern of hoColumn to False Set ComCustomFilter of hoColumn to "checked||-1|||unchecked||0" Send Destroy to hoColumn Send Destroy to hoColumns Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Get ComAddItem of hoItems True to Nothing Get ComAddItem of hoItems True to Nothing Get ComAddItem of hoItems False to Nothing Get ComAddItem of hoItems True to Nothing Get ComAddItem of hoItems False to Nothing Get ComAddItem of hoItems True to Nothing Get ComAddItem of hoItems False to Nothing Send Destroy to hoItems End_Procedure |
1336 |
How can I filter the check-boxes (method 1)
Procedure OnCreate Forward Send OnCreate Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Variant voColumn Get ComAdd of hoColumns "Check" to voColumn Handle hoColumn Get Create (RefClass(cComColumn)) to hoColumn Set pvComObject of hoColumn to voColumn Variant voEditor Get ComEditor of hoColumn to voEditor Handle hoEditor Get Create (RefClass(cComEditor)) to hoEditor Set pvComObject of hoEditor to voEditor Set ComEditType of hoEditor to OLECheckValueType Set ComOption of hoEditor OLEexCheckValue2 to 1 Send Destroy to hoEditor Set ComDisplayFilterButton of hoColumn to True Set ComDisplayFilterPattern of hoColumn to False Set ComFilterType of hoColumn to OLEexCheck Send Destroy to hoColumn Send Destroy to hoColumns Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Get ComAddItem of hoItems True to Nothing Get ComAddItem of hoItems True to Nothing Get ComAddItem of hoItems False to Nothing Get ComAddItem of hoItems True to Nothing Get ComAddItem of hoItems False to Nothing Get ComAddItem of hoItems True to Nothing Get ComAddItem of hoItems False to Nothing Send Destroy to hoItems End_Procedure |
1335 |
How can add a button to control
// Occurs when user clicks on the cell's button. Procedure OnComButtonClick HITEM llItem Integer llColIndex Variant llKey Forward Send OnComButtonClick llItem llColIndex llKey Variant v Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Get ComCellCaption of hoItems llItem llColIndex to v Send Destroy to hoItems Showln "ButtonClick" v llKey End_Procedure Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComDefaultItemHeight to 22 Set ComHeaderHeight to 22 Set ComAppearance to OLENone2 Set ComDrawGridLines to OLEexRowLines Set ComScrollBySingleLine to False Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=" Set ComHTMLPicture "pic1" to "c:\exontrol\images\auction.gif" Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComPaneWidth of hoChart True to 0 Send Destroy to hoChart Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Variant voColumn Get ComAdd of hoColumns "Type" to voColumn Handle hoColumn Get Create (RefClass(cComColumn)) to hoColumn Set pvComObject of hoColumn to voColumn Set ComWidth of hoColumn to 48 Set ComDef of hoColumn OLEexCellValueFormat to 1 Send Destroy to hoColumn Variant voColumn1 Get ComAdd of hoColumns "Appearance" to voColumn1 Handle hoColumn1 Get Create (RefClass(cComColumn)) to hoColumn1 Set pvComObject of hoColumn1 to voColumn1 Set ComDef of hoColumn1 OLEexCellValueFormat to 1 Set ComAlignment of hoColumn1 to OLECenterAlignment Set ComHeaderAlignment of hoColumn1 to OLECenterAlignment Send Destroy to hoColumn1 Send Destroy to hoColumns Variant voItems1 Get ComItems to voItems1 Handle hoItems1 Get Create (RefClass(cComItems)) to hoItems1 Set pvComObject of hoItems1 to voItems1 Variant h Get ComAddItem of hoItems1 "Items.<b>CellHasButton</b> property" to h Set ComCellValue of hoItems1 h 1 to "Button <b>1</b>" Set ComCellHasButton of hoItems1 h 1 to True Get ComAddItem of hoItems1 "Items.<b>CellButtonAutoWidth</b> property" to h Set ComCellValue of hoItems1 h 1 to " Button <b>2</b> " Set ComCellHasButton of hoItems1 h 1 to True Set ComCellButtonAutoWidth of hoItems1 h 1 to True Get ComAddItem of hoItems1 "Items.<b>CellHasButton</b> property" to h Set ComCellValue of hoItems1 h 1 to " <img>2</img>Button <b>3</b> " Set ComCellHasButton of hoItems1 h 1 to True Set ComCellButtonAutoWidth of hoItems1 h 1 to True Get ComAddItem of hoItems1 "Items.<b>CellHasButton</b> property" to h Set ComItemHeight of hoItems1 h to 32 Set ComCellValue of hoItems1 h 1 to " <img>2</img>Button <b>4</b> <img>pic1</img> " Set ComCellHasButton of hoItems1 h 1 to True Set ComCellButtonAutoWidth of hoItems1 h 1 to True Get ComAddItem of hoItems1 "Items.<b>CellHasButton</b> in splitted cells" to h Set ComCellValue of hoItems1 h 1 to " Button <b>5.1</b> " Set ComCellHasButton of hoItems1 h 1 to True Set ComCellButtonAutoWidth of hoItems1 h 1 to True Variant s Get ComSplitCell of hoItems1 h 1 to s Set ComCellValue of hoItems1 0 s to " Button <b>5.2</b> " Set ComCellHasButton of hoItems1 0 s to True Set ComCellButtonAutoWidth of hoItems1 0 s to True Get ComAddItem of hoItems1 "Column.<b>Editor</b>, Items.<b>CellEditor</b>" to h Set ComCellValue of hoItems1 h 1 to "Visible when clicking the cell" Variant voEditor Get ComCellEditor of hoItems1 h 1 to voEditor Handle hoEditor Get Create (RefClass(cComEditor)) to hoEditor Set pvComObject of hoEditor to voEditor Set ComEditType of hoEditor to OLEEditType Send ComAddButton of hoEditor "B1" 1 0 "This is a bit of text that's shown when the cursor hovers the button B1" Nothing Nothing Send ComAddButton of hoEditor "B3" 2 1 "This is a bit of text that's shown when the cursor hovers the button B3" Nothing Nothing Send ComAddButton of hoEditor "B4" 1 1 "This is a bit of text that's shown when the cursor hovers the button B4" Nothing Nothing Set ComButtonWidth of hoEditor to 24 Send Destroy to hoEditor Get ComAddItem of hoItems1 "Column.<b>Editor</b>, Items.<b>CellEditor</b>" to h Set ComCellValue of hoItems1 h 1 to 3 Variant voEditor1 Get ComCellEditor of hoItems1 h 1 to voEditor1 Handle hoEditor1 Get Create (RefClass(cComEditor)) to hoEditor1 Set pvComObject of hoEditor1 to voEditor1 Set ComEditType of hoEditor1 to OLECheckListType Send ComAddItem of hoEditor1 1 "Flag 1" Nothing Send ComAddItem of hoEditor1 2 "Flag 2" Nothing Send ComAddItem of hoEditor1 4 "Flag 4" Nothing Send ComAddItem of hoEditor1 8 "Flag 8" Nothing Send ComAddButton of hoEditor1 "C1" 1 0 "This is a bit of text that's shown when the cursor hovers the button C1" Nothing Nothing Send ComAddButton of hoEditor1 "C3" 2 0 "This is a bit of text that's shown when the cursor hovers the button C2" Nothing Nothing Send ComAddButton of hoEditor1 "C4" 1 0 "This is a bit of text that's shown when the cursor hovers the button C3" Nothing Nothing Set ComButtonWidth of hoEditor1 to 24 Send Destroy to hoEditor1 Send Destroy to hoItems1 Send ComEndUpdate End_Procedure |
1334 |
Is it posible to store additional values against each item, cell, bar, link, such as custom values such string / numbers etc
Procedure OnCreate Forward Send OnCreate Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComLevelCount of hoChart to 2 Set ComFirstVisibleDate of hoChart to "1/1/2001" Set ComPaneWidth of hoChart False to 96 Send Destroy to hoChart Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Variant voColumn Get ComAdd of hoColumns "Column" to voColumn Handle hoColumn Get Create (RefClass(cComColumn)) to hoColumn Set pvComObject of hoColumn to voColumn Set ComData of hoColumn to "Extra_Data_Column" Send Destroy to hoColumn Send Destroy to hoColumns Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Variant h Get ComAddItem of hoItems "Item 1" to h Set ComItemData of hoItems h to "Extra_Data_Item 1" Set ComCellData of hoItems h 0 to "Extra_Data_Item 1_Cell_0" Send ComAddBar of hoItems h "Task" "1/2/2001" "1/4/2001" "B1" Nothing Set ComItemBar of hoItems h "B1" OLEexBarData to "Extra_B1_Data" Get ComAddItem of hoItems "Item 2" to h Set ComItemData of hoItems h to "Extra_Data_Item 2" Send ComAddBar of hoItems h "Task" "1/6/2001" "1/10/2001" "B2" Nothing Set ComItemBar of hoItems h "B2" OLEexBarData to "Extra_B2_Data" Send ComAddLink of hoItems "L1" (ComFindItem(hoItems,"Item 1",0,Nothing)) "B1" (ComFindItem(hoItems,"Item 2",0,Nothing)) "B2" Set ComLink of hoItems "L1" OLEexLinkUserData to "Extra_Link_Data" Send Destroy to hoItems End_Procedure |
1333 |
How do I set the parent item to show the total number of days for its children and also the minimum and maximum dates for its children
Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComMarkSearchColumn to False Set ComIndent to 11 Set ComHasLines to OLEexSolidLine Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Set ComAllowCellValueToItemBar of hoItems to True Send Destroy to hoItems Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Get ComAdd of hoColumns "Tasks" to Nothing Variant voColumn Get ComAdd of hoColumns "Start" to voColumn Handle hoColumn Get Create (RefClass(cComColumn)) to hoColumn Set pvComObject of hoColumn to voColumn Set ComDef of hoColumn OLEexCellValueToItemBarProperty to 1 Send Destroy to hoColumn Variant voColumn1 Get ComAdd of hoColumns "End" to voColumn1 Handle hoColumn1 Get Create (RefClass(cComColumn)) to hoColumn1 Set pvComObject of hoColumn1 to voColumn1 Set ComDef of hoColumn1 OLEexCellValueToItemBarProperty to 2 Send Destroy to hoColumn1 Variant voColumn2 Get ComAdd of hoColumns "Duration" to voColumn2 Handle hoColumn2 Get Create (RefClass(cComColumn)) to hoColumn2 Set pvComObject of hoColumn2 to voColumn2 Set ComDef of hoColumn2 OLEexCellValueToItemBarProperty to 513 Send Destroy to hoColumn2 Send Destroy to hoColumns Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComShowNonworkingDates of hoChart to False Set ComFirstVisibleDate of hoChart to "9/20/2006" Set ComAllowLinkBars of hoChart to False Set ComAllowCreateBar of hoChart to OLEexNoCreateBar Set ComLevelCount of hoChart to 2 Set ComPaneWidth of hoChart False to 220 Send Destroy to hoChart Variant voItems1 Get ComItems to voItems1 Handle hoItems1 Get Create (RefClass(cComItems)) to hoItems1 Set pvComObject of hoItems1 to voItems1 Variant h Get ComAddItem of hoItems1 "Project" to h Send ComAddBar of hoItems1 h "Summary" "9/21/2006" "10/3/2006" Nothing Nothing Variant h1 Get ComInsertItem of hoItems1 h "Task 1" to h1 Send ComAddBar of hoItems1 h1 "Task" "9/21/2006" "9/24/2006" Nothing Nothing Variant h2 Get ComInsertItem of hoItems1 h "Task 2" to h2 Send ComAddBar of hoItems1 h2 "Task" "9/24/2006" "9/28/2006" Nothing Nothing Variant h3 Get ComInsertItem of hoItems1 h "Task 3" to h3 Send ComAddBar of hoItems1 h3 "Task" "9/28/2006" "10/3/2006" Nothing Nothing Send ComDefineSummaryBars of hoItems1 h "" h1 "" Send ComDefineSummaryBars of hoItems1 h "" h2 "" Send ComDefineSummaryBars of hoItems1 h "" h3 "" Set ComExpandItem of hoItems1 h to True Set ComItemBold of hoItems1 h to True Send Destroy to hoItems1 Send ComEndUpdate End_Procedure |
1332 |
Is it possible to specify the distance between 2 bars to be at least 2 working days
// Occurs when a bar is moving or resizing. Procedure OnComBarResizing HITEM llItem Variant llKey Forward Send OnComBarResizing llItem llKey Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Get ComSchedulePDM of hoItems llItem llKey to Nothing Send Destroy to hoItems End_Procedure Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComDefaultItemHeight to 24 Set ComAntiAliasing to True Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Get ComAdd of hoColumns "Task" to Nothing Send Destroy to hoColumns Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComLevelCount of hoChart to 2 Variant voBars Get ComBars of hoChart to voBars Handle hoBars Get Create (RefClass(cComBars)) to hoBars Set pvComObject of hoBars to voBars Variant voBar Get ComAdd of hoBars "Task:Split" to voBar Handle hoBar Get Create (RefClass(cComBar)) to hoBar Set pvComObject of hoBar to voBar Set ComShortcut of hoBar to "Task" Set ComColor of hoBar to (RGB(0,0,0)) Set ComHeight of hoBar to 17 Set ComPattern of hoBar to OLEexPatternFrameShadow Send Destroy to hoBar Send Destroy to hoBars Set ComFirstVisibleDate of hoChart to "1/3/2001" Set ComPaneWidth of hoChart False to 48 Set ComLinksWidth of hoChart to 2 Set ComAllowCreateBar of hoChart to OLEexNoCreateBar Set ComAllowLinkBars of hoChart to False Set ComFirstWeekDay of hoChart to OLEexMonday Set ComNonworkingDaysPattern of hoChart to OLEexPatternBDiagonal Send Destroy to hoChart Variant voItems1 Get ComItems to voItems1 Handle hoItems1 Get Create (RefClass(cComItems)) to hoItems1 Set pvComObject of hoItems1 to voItems1 Variant h1 Get ComAddItem of hoItems1 "Task 1" to h1 Send ComAddBar of hoItems1 h1 "Task" "1/4/2001" "1/6/2001" "K1" Nothing Set ComItemBar of hoItems1 h1 "K1" OLEexBarKeepWorkingCount to True Variant h2 Get ComAddItem of hoItems1 "Task 2" to h2 Send ComAddBar of hoItems1 h2 "Task" "1/2/2001" "1/5/2001" "K2" Nothing Set ComItemBar of hoItems1 h2 "K2" OLEexBarKeepWorkingCount to True Send ComAddLink of hoItems1 "L1" h1 "K1" h2 "K2" Set ComLink of hoItems1 "L1" OLEexLinkShowRound to -1 Set ComLink of hoItems1 "L1" OLEexLinkColor to 8421504 Variant h3 Get ComAddItem of hoItems1 "Task 3" to h3 Send ComAddBar of hoItems1 h3 "Task" "1/2/2001" "1/6/2001" "K3" Nothing Set ComItemBar of hoItems1 h3 "K3" OLEexBarKeepWorkingCount to True Send ComAddLink of hoItems1 "L2" h2 "K2" h3 "K3" Set ComLink of hoItems1 "L2" OLEexLinkText to "<br><br><br><br>This link <u>delays</u> the bars<br>with <b>2</b> working days" Set ComLink of hoItems1 "L2" OLEexLinkPDMWorkingDelay to 2 Set ComLink of hoItems1 "L2" OLEexLinkShowRound to -1 Get ComSchedulePDM of hoItems1 0 "K1" to Nothing Send Destroy to hoItems1 Send ComEndUpdate End_Procedure |
1331 |
The item is not getting selected when clicking the cell's checkbox. What should I do
// Fired after cell's state has been changed. Procedure OnComCellStateChanged HITEM llItem Integer llColIndex Forward Send OnComCellStateChanged llItem llColIndex Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Set ComSelectItem of hoItems llItem to True Send Destroy to hoItems End_Procedure Procedure OnCreate Forward Send OnCreate Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Variant voColumn Get ComAdd of hoColumns "Check" to voColumn Handle hoColumn Get Create (RefClass(cComColumn)) to hoColumn Set pvComObject of hoColumn to voColumn Set ComDef of hoColumn OLEexCellHasCheckBox to True Send Destroy to hoColumn Send Destroy to hoColumns Variant voItems1 Get ComItems to voItems1 Handle hoItems1 Get Create (RefClass(cComItems)) to hoItems1 Set pvComObject of hoItems1 to voItems1 Get ComAddItem of hoItems1 0 to Nothing Get ComAddItem of hoItems1 1 to Nothing Get ComAddItem of hoItems1 2 to Nothing Get ComAddItem of hoItems1 3 to Nothing Send Destroy to hoItems1 End_Procedure |
1330 |
How can I add a summary item as a child or subitem of another one
Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComPaneWidth of hoChart False to 96 Set ComFirstVisibleDate of hoChart to "1/1/2011" Set ComLevelCount of hoChart to 2 Send Destroy to hoChart Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Get ComAdd of hoColumns "Default" to Nothing Send Destroy to hoColumns Set ComLinesAtRoot to OLEexLinesAtRoot Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Variant hSummary Get ComAddItem of hoItems "Project" to hSummary Send ComAddBar of hoItems hSummary "Summary" "1/1/2011" "1/1/2011" "Sum" Nothing Variant hChild Get ComInsertItem of hoItems hSummary 0 "Task 1" to hChild Send ComAddBar of hoItems hChild "Task" "1/2/2011" "1/4/2011" "Task1" Nothing Send ComDefineSummaryBars of hoItems hSummary "Sum" hChild "Task1" Get ComInsertItem of hoItems hSummary 0 "Task 2" to hChild Send ComAddBar of hoItems hChild "Task" "1/4/2011" "1/6/2011" "Task2" Nothing Send ComDefineSummaryBars of hoItems hSummary "Sum" hChild "Task2" Get ComInsertItem of hoItems hSummary 0 "Task 3" to hChild Send ComAddBar of hoItems hChild "Task" "1/6/2011" "1/8/2011" "Task3" Nothing Send ComDefineSummaryBars of hoItems hSummary "Sum" hChild "Task3" Set ComExpandItem of hoItems hSummary to True Send Destroy to hoItems Send ComEndUpdate End_Procedure |
1329 |
How can I make an item a subitem of another one
Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComLinesAtRoot to OLEexLinesAtRoot Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComPaneWidth of hoChart True to 0 Send Destroy to hoChart Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Get ComAdd of hoColumns "Default" to Nothing Send Destroy to hoColumns Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Variant hSummary Get ComAddItem of hoItems "Project" to hSummary Variant hChild Get ComInsertItem of hoItems hSummary 0 "Task 1" to hChild Get ComInsertItem of hoItems hSummary 0 "Task 2" to hChild Get ComInsertItem of hoItems hSummary 0 "Task 3" to hChild Set ComExpandItem of hoItems hSummary to True Send Destroy to hoItems Send ComEndUpdate End_Procedure |
1328 |
Is it possible to move a bar per drag and drop to another owner/item
Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Variant voColumn Get ComAdd of hoColumns "Members" to voColumn Handle hoColumn Get Create (RefClass(cComColumn)) to hoColumn Set pvComObject of hoColumn to voColumn Set ComDef of hoColumn OLEexCellValueFormat to 1 Send Destroy to hoColumn Send Destroy to hoColumns Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComFirstVisibleDate of hoChart to "9/20/2006" Set ComAllowLinkBars of hoChart to False Set ComAllowCreateBar of hoChart to OLEexNoCreateBar Set ComAllowSelectObjects of hoChart to OLEexNoSelectObjects Set ComLevelCount of hoChart to 2 Set ComPaneWidth of hoChart False to 96 Variant voBars Get ComBars of hoChart to voBars Handle hoBars Get Create (RefClass(cComBars)) to hoBars Set pvComObject of hoBars to voBars Variant voBar Get ComItem of hoBars "Task" to voBar Handle hoBar Get Create (RefClass(cComBar)) to hoBar Set pvComObject of hoBar to voBar Set ComOverlaidType of hoBar to (OLEexOverlaidBarsIncludeCaption + OLEexOverlaidBarsStackAutoArrange + OLEexOverlaidBarsStack) Send Destroy to hoBar Send Destroy to hoBars Send Destroy to hoChart Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Variant h Get ComAddItem of hoItems "Member <b>1</b>" to h Send ComAddBar of hoItems h "Task" "9/21/2006" "9/23/2006" "T102" "Task <b>102</b>" Set ComItemBar of hoItems h "T102" OLEexBarHAlignCaption to 18 Set ComItemBar of hoItems h "T102" OLEexBarCanMoveToAnother to True Get ComAddItem of hoItems "Member <b>2</b>" to h Get ComAddItem of hoItems "Member <b>3</b>" to h Get ComAddItem of hoItems "Member <b>4</b>" to h Send ComAddBar of hoItems h "Task" "9/21/2006" "9/23/2006" "T103" "Task <b>103</b>" Set ComItemBar of hoItems h "T103" OLEexBarHAlignCaption to 18 Set ComItemBar of hoItems h "T103" OLEexBarCanMoveToAnother to True Send Destroy to hoItems Send ComEndUpdate End_Procedure |
1327 |
I have the chart displaying days, is it possible to display bars/tasks up to hours so inside days somehow
|
1326 |
Is it possible to limit the height of the item while resizing
// Occurs after a new Item has been inserted to Items collection. Procedure OnComAddItem HITEM llItem Forward Send OnComAddItem llItem Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Set ComItemMinHeight of hoItems llItem to 18 Send Destroy to hoItems Variant voItems1 Get ComItems to voItems1 Handle hoItems1 Get Create (RefClass(cComItems)) to hoItems1 Set pvComObject of hoItems1 to voItems1 Set ComItemMaxHeight of hoItems1 llItem to 72 Send Destroy to hoItems1 End_Procedure Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComItemsAllowSizing to OLEexResizeItem Set ComScrollBySingleLine to False Set ComBackColorAlternate to (RGB(240,240,240)) Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Get ComAdd of hoColumns "Names" to Nothing Send Destroy to hoColumns Variant voItems2 Get ComItems to voItems2 Handle hoItems2 Get Create (RefClass(cComItems)) to hoItems2 Set pvComObject of hoItems2 to voItems2 Get ComAddItem of hoItems2 "Mantel" to Nothing Get ComAddItem of hoItems2 "Mechanik" to Nothing Get ComAddItem of hoItems2 "Motor" to Nothing Get ComAddItem of hoItems2 "Murks" to Nothing Get ComAddItem of hoItems2 "Märchen" to Nothing Get ComAddItem of hoItems2 "Möhren" to Nothing Get ComAddItem of hoItems2 "Mühle" to Nothing Send Destroy to hoItems2 Variant voColumns1 Get ComColumns to voColumns1 Handle hoColumns1 Get Create (RefClass(cComColumns)) to hoColumns1 Set pvComObject of hoColumns1 to voColumns1 Variant voColumn Get ComItem of hoColumns1 0 to voColumn Handle hoColumn Get Create (RefClass(cComColumn)) to hoColumn Set pvComObject of hoColumn to voColumn Set ComSortOrder of hoColumn to OLESortAscending Send Destroy to hoColumn Send Destroy to hoColumns1 Send ComEndUpdate End_Procedure |
1325 |
Is it possible to copy the hierarchy of the control using the GetItems method
|
1324 |
I have found a property ReadOnly but this doesn't work correctly. I need the chart part of the control to be readonly too. Is it possible
Procedure OnCreate Forward Send OnCreate Set ComReadOnly to OLEexReadOnly Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComAllowCreateBar of hoChart to OLEexNoCreateBar Set ComBarsAllowSizing of hoChart to False Set ComAllowLinkBars of hoChart to False Send Destroy to hoChart End_Procedure |
1323 |
How can I select a column
// Occurs when the user presses a mouse button. Procedure OnComMouseDown Short llButton Short llShift OLE_XPOS_PIXELS llX OLE_YPOS_PIXELS llY Forward Send OnComMouseDown llButton llShift llX llY Send ComBeginUpdate Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Variant vIndex Get ComColumnFromPoint llX llY to vIndex Variant voColumn Get ComItem of hoColumns vIndex to voColumn Handle hoColumn Get Create (RefClass(cComColumn)) to hoColumn Set pvComObject of hoColumn to voColumn Set ComSelected of hoColumn to True Send Destroy to hoColumn Send Destroy to hoColumns Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Send ComSelectAll of hoItems Send Destroy to hoItems Send ComEndUpdate End_Procedure Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Set ComMarkSearchColumn to False Set ComSingleSel to False Set ComFullRowSelect to OLEexRectSel Set ComSortOnClick to OLEexNoSort Variant voColumns1 Get ComColumns to voColumns1 Handle hoColumns1 Get Create (RefClass(cComColumns)) to hoColumns1 Set pvComObject of hoColumns1 to voColumns1 Get ComAdd of hoColumns1 "Column1" to Nothing Get ComAdd of hoColumns1 "Column2" to Nothing Send Destroy to hoColumns1 Variant voItems1 Get ComItems to voItems1 Handle hoItems1 Get Create (RefClass(cComItems)) to hoItems1 Set pvComObject of hoItems1 to voItems1 Set ComCellValue of hoItems1 (ComAddItem(hoItems1,"One")) 1 to "One" Set ComCellValue of hoItems1 (ComAddItem(hoItems1,"Two")) 1 to "Two" Send Destroy to hoItems1 Send ComEndUpdate End_Procedure |
1322 |
I have several columns, but noticed that the filter is using AND between columns, but I need OR clause for filtering. Is it possible
Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComPaneWidth of hoChart True to 0 Send Destroy to hoChart Set ComLinesAtRoot to OLEexLinesAtRoot Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Variant voColumn Get ComAdd of hoColumns "Item" to voColumn Handle hoColumn Get Create (RefClass(cComColumn)) to hoColumn Set pvComObject of hoColumn to voColumn Set ComDisplayFilterButton of hoColumn to True Set ComDisplayFilterPattern of hoColumn to False Set ComFilter of hoColumn to "Child 1" Set ComFilterType of hoColumn to OLEexFilter Send Destroy to hoColumn Send Destroy to hoColumns Variant voColumns1 Get ComColumns to voColumns1 Handle hoColumns1 Get Create (RefClass(cComColumns)) to hoColumns1 Set pvComObject of hoColumns1 to voColumns1 Variant voColumn1 Get ComAdd of hoColumns1 "Date" to voColumn1 Handle hoColumn1 Get Create (RefClass(cComColumn)) to hoColumn1 Set pvComObject of hoColumn1 to voColumn1 Set ComDisplayFilterButton of hoColumn1 to True Set ComDisplayFilterPattern of hoColumn1 to False Set ComDisplayFilterDate of hoColumn1 to True Set ComFilterList of hoColumn1 to (OLEexShowExclude + OLEexShowFocusItem + OLEexShowCheckBox + OLEexNoItems) Set ComFilter of hoColumn1 to "12/28/2010" Set ComFilterType of hoColumn1 to OLEexDate Send Destroy to hoColumn1 Send Destroy to hoColumns1 Set ComFilterCriteria to "%0 or %1" Set ComDescription OLEexFilterBarOr to "<font ;18><fgcolor=FF0000>or</fgcolor></font>" Set ComDescription OLEexFilterBarAnd to "<font ;18><fgcolor=FF0000>and</fgcolor></font>" Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Variant h Get ComAddItem of hoItems "Root 1" to h Set ComCellValue of hoItems (ComInsertItem(hoItems,h,"Child 1")) 1 to "12/27/2010" Set ComCellValue of hoItems (ComInsertItem(hoItems,h,"Child 2")) 1 to "12/28/2010" Set ComExpandItem of hoItems h to True Get ComAddItem of hoItems "Root 2" to h Set ComCellValue of hoItems (ComInsertItem(hoItems,h,"Child 1")) 1 to "12/29/2010" Set ComCellValue of hoItems (ComInsertItem(hoItems,h,"Child 2")) 1 to "12/30/2010" Send Destroy to hoItems Send ComApplyFilter Send ComEndUpdate End_Procedure |
1321 |
Is it possible exclude the dates being selected in the drop down filter window
Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComPaneWidth of hoChart True to 0 Send Destroy to hoChart Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Variant voColumn Get ComAdd of hoColumns "Date" to voColumn Handle hoColumn Get Create (RefClass(cComColumn)) to hoColumn Set pvComObject of hoColumn to voColumn Set ComSortType of hoColumn to OLESortDate Set ComDisplayFilterButton of hoColumn to True Set ComDisplayFilterPattern of hoColumn to False Set ComDisplayFilterDate of hoColumn to True Set ComFilterList of hoColumn to (OLEexShowExclude + OLEexShowFocusItem + OLEexShowCheckBox + OLEexNoItems) Send Destroy to hoColumn Send Destroy to hoColumns Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Get ComAddItem of hoItems "12/27/2010" to Nothing Get ComAddItem of hoItems "12/28/2010" to Nothing Get ComAddItem of hoItems "12/29/2010" to Nothing Get ComAddItem of hoItems "12/30/2010" to Nothing Get ComAddItem of hoItems "12/31/2010" to Nothing Send Destroy to hoItems Send ComEndUpdate End_Procedure |
1320 |
How can I display a calendar control inside the drop down filter window
Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComPaneWidth of hoChart True to 0 Send Destroy to hoChart Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Variant voColumn Get ComAdd of hoColumns "Date" to voColumn Handle hoColumn Get Create (RefClass(cComColumn)) to hoColumn Set pvComObject of hoColumn to voColumn Set ComSortType of hoColumn to OLESortDate Set ComDisplayFilterButton of hoColumn to True Set ComDisplayFilterPattern of hoColumn to False Set ComDisplayFilterDate of hoColumn to True Set ComFilterList of hoColumn to (OLEexShowFocusItem + OLEexShowCheckBox + OLEexNoItems) Send Destroy to hoColumn Send Destroy to hoColumns Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Get ComAddItem of hoItems "12/27/2010" to Nothing Get ComAddItem of hoItems "12/28/2010" to Nothing Get ComAddItem of hoItems "12/29/2010" to Nothing Get ComAddItem of hoItems "12/30/2010" to Nothing Get ComAddItem of hoItems "12/31/2010" to Nothing Send Destroy to hoItems Send ComEndUpdate End_Procedure |
1319 |
Is it possible to include the dates as checkb-boxes in the drop down filter window
Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComPaneWidth of hoChart True to 0 Send Destroy to hoChart Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Variant voColumn Get ComAdd of hoColumns "Dates" to voColumn Handle hoColumn Get Create (RefClass(cComColumn)) to hoColumn Set pvComObject of hoColumn to voColumn Set ComSortType of hoColumn to OLESortDate Set ComDisplayFilterButton of hoColumn to True Set ComDisplayFilterPattern of hoColumn to True Set ComDisplayFilterDate of hoColumn to True Set ComFilterList of hoColumn to (OLEexShowFocusItem + OLEexShowCheckBox) Set ComFilter of hoColumn to "to 12/27/2010" Set ComFilterType of hoColumn to OLEexDate Send Destroy to hoColumn Send Destroy to hoColumns Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Get ComAddItem of hoItems "12/27/2010" to Nothing Get ComAddItem of hoItems "12/28/2010" to Nothing Get ComAddItem of hoItems "12/29/2010" to Nothing Get ComAddItem of hoItems "12/30/2010" to Nothing Get ComAddItem of hoItems "12/31/2010" to Nothing Send Destroy to hoItems Send ComApplyFilter Send ComEndUpdate End_Procedure |
1318 |
How can I filter items for dates before a specified date
Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComPaneWidth of hoChart True to 0 Send Destroy to hoChart Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Variant voColumn Get ComAdd of hoColumns "Dates" to voColumn Handle hoColumn Get Create (RefClass(cComColumn)) to hoColumn Set pvComObject of hoColumn to voColumn Set ComSortType of hoColumn to OLESortDate Set ComDisplayFilterButton of hoColumn to True Set ComDisplayFilterPattern of hoColumn to True Set ComDisplayFilterDate of hoColumn to True Set ComFilterList of hoColumn to (OLEexShowFocusItem + OLEexNoItems) Set ComFilter of hoColumn to "to 12/27/2010" Set ComFilterType of hoColumn to OLEexDate Send Destroy to hoColumn Send Destroy to hoColumns Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Get ComAddItem of hoItems "12/27/2010" to Nothing Get ComAddItem of hoItems "12/28/2010" to Nothing Get ComAddItem of hoItems "12/29/2010" to Nothing Get ComAddItem of hoItems "12/30/2010" to Nothing Get ComAddItem of hoItems "12/31/2010" to Nothing Send Destroy to hoItems Send ComApplyFilter Send ComEndUpdate End_Procedure |
1317 |
Is it possible to filter dates
Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComPaneWidth of hoChart True to 0 Send Destroy to hoChart Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Variant voColumn Get ComAdd of hoColumns "Dates" to voColumn Handle hoColumn Get Create (RefClass(cComColumn)) to hoColumn Set pvComObject of hoColumn to voColumn Set ComSortType of hoColumn to OLESortDate Set ComDisplayFilterButton of hoColumn to True Set ComDisplayFilterPattern of hoColumn to True Set ComDisplayFilterDate of hoColumn to True Set ComFilterList of hoColumn to (OLEexShowFocusItem + OLEexNoItems) Send Destroy to hoColumn Send Destroy to hoColumns Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Get ComAddItem of hoItems "12/27/2010" to Nothing Get ComAddItem of hoItems "12/28/2010" to Nothing Get ComAddItem of hoItems "12/29/2010" to Nothing Get ComAddItem of hoItems "12/30/2010" to Nothing Get ComAddItem of hoItems "12/31/2010" to Nothing Send Destroy to hoItems Send ComEndUpdate End_Procedure |
1316 |
Is it possible to change the Exclude field name to something different, in the drop down filter window
Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComPaneWidth of hoChart True to 0 Send Destroy to hoChart Set ComLinesAtRoot to OLEexLinesAtRoot Set ComDescription OLEexFilterBarExclude to "Leaving out" Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Variant voColumn Get ComAdd of hoColumns "Items" to voColumn Handle hoColumn Get Create (RefClass(cComColumn)) to hoColumn Set pvComObject of hoColumn to voColumn Set ComDisplayFilterButton of hoColumn to True Set ComDisplayFilterPattern of hoColumn to False Set ComFilterList of hoColumn to (OLEexShowExclude + OLEexShowFocusItem + OLEexShowCheckBox) Send Destroy to hoColumn Send Destroy to hoColumns Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Variant h Get ComAddItem of hoItems "Root 1" to h Get ComInsertItem of hoItems h "Child 1" to Nothing Get ComInsertItem of hoItems h "Child 2" to Nothing Set ComExpandItem of hoItems h to True Get ComAddItem of hoItems "Root 2" to h Get ComInsertItem of hoItems h "Child 1" to Nothing Send Destroy to hoItems Send ComEndUpdate End_Procedure |
1315 |
How can I display the Exclude field in the drop down filter window
Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComPaneWidth of hoChart True to 0 Send Destroy to hoChart Set ComLinesAtRoot to OLEexLinesAtRoot Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Variant voColumn Get ComAdd of hoColumns "Items" to voColumn Handle hoColumn Get Create (RefClass(cComColumn)) to hoColumn Set pvComObject of hoColumn to voColumn Set ComDisplayFilterButton of hoColumn to True Set ComDisplayFilterPattern of hoColumn to False Set ComFilterList of hoColumn to (OLEexShowExclude + OLEexShowFocusItem + OLEexShowCheckBox) Send Destroy to hoColumn Send Destroy to hoColumns Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Variant h Get ComAddItem of hoItems "Root 1" to h Get ComInsertItem of hoItems h "Child 1" to Nothing Get ComInsertItem of hoItems h "Child 2" to Nothing Set ComExpandItem of hoItems h to True Get ComAddItem of hoItems "Root 2" to h Get ComInsertItem of hoItems h "Child 1" to Nothing Send Destroy to hoItems Send ComEndUpdate End_Procedure |
1314 |
Is it possible to show and ensure the focused item from the control, in the drop down filter window
Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComPaneWidth of hoChart True to 0 Send Destroy to hoChart Set ComLinesAtRoot to OLEexLinesAtRoot Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Variant voColumn Get ComAdd of hoColumns "Items" to voColumn Handle hoColumn Get Create (RefClass(cComColumn)) to hoColumn Set pvComObject of hoColumn to voColumn Set ComDisplayFilterButton of hoColumn to True Set ComDisplayFilterPattern of hoColumn to False Set ComFilterList of hoColumn to (OLEexShowFocusItem + OLEexShowCheckBox) Send Destroy to hoColumn Send Destroy to hoColumns Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Variant h Get ComAddItem of hoItems "Root 1" to h Get ComInsertItem of hoItems h "Child 1" to Nothing Get ComInsertItem of hoItems h "Child 2" to Nothing Set ComExpandItem of hoItems h to True Get ComAddItem of hoItems "Root 2" to h Get ComInsertItem of hoItems h "Child 1" to Nothing Set ComSelectItem of hoItems (ComInsertItem(hoItems,h,"Child 2")) to True Set ComExpandItem of hoItems h to True Send Destroy to hoItems Send ComEndUpdate End_Procedure |
1313 |
Is it possible to show only blanks items with no listed items from the control
Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComPaneWidth of hoChart True to 0 Send Destroy to hoChart Set ComLinesAtRoot to OLEexLinesAtRoot Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Variant voColumn Get ComAdd of hoColumns "Items" to voColumn Handle hoColumn Get Create (RefClass(cComColumn)) to hoColumn Set pvComObject of hoColumn to voColumn Set ComDisplayFilterButton of hoColumn to True Set ComDisplayFilterPattern of hoColumn to False Set ComFilterList of hoColumn to (OLEexShowBlanks + OLEexNoItems) Send Destroy to hoColumn Send Destroy to hoColumns Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Variant h Get ComAddItem of hoItems "Root 1" to h Get ComInsertItem of hoItems h "Child 1" to Nothing Get ComInsertItem of hoItems h "Child 2" to Nothing Set ComExpandItem of hoItems h to True Get ComAddItem of hoItems "Root 2" to h Get ComInsertItem of hoItems h "Child 1" to Nothing Get ComInsertItem of hoItems h "Child 2" to Nothing Send Destroy to hoItems Send ComEndUpdate End_Procedure |
1312 |
How can I include the blanks items in the drop down filter window
Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComPaneWidth of hoChart True to 0 Send Destroy to hoChart Set ComLinesAtRoot to OLEexLinesAtRoot Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Variant voColumn Get ComAdd of hoColumns "Items" to voColumn Handle hoColumn Get Create (RefClass(cComColumn)) to hoColumn Set pvComObject of hoColumn to voColumn Set ComDisplayFilterButton of hoColumn to True Set ComDisplayFilterPattern of hoColumn to False Set ComFilterList of hoColumn to (OLEexShowBlanks + OLEexShowCheckBox) Send Destroy to hoColumn Send Destroy to hoColumns Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Variant h Get ComAddItem of hoItems "Root 1" to h Get ComInsertItem of hoItems h "Child 1" to Nothing Get ComInsertItem of hoItems h "Child 2" to Nothing Set ComExpandItem of hoItems h to True Get ComAddItem of hoItems "Root 2" to h Get ComInsertItem of hoItems h "Child 1" to Nothing Get ComInsertItem of hoItems h "Child 2" to Nothing Send Destroy to hoItems Send ComEndUpdate End_Procedure |
1311 |
How can I select multiple items in the drop down filter window, using check-boxes
Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComPaneWidth of hoChart True to 0 Send Destroy to hoChart Set ComLinesAtRoot to OLEexLinesAtRoot Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Variant voColumn Get ComAdd of hoColumns "Items" to voColumn Handle hoColumn Get Create (RefClass(cComColumn)) to hoColumn Set pvComObject of hoColumn to voColumn Set ComDisplayFilterButton of hoColumn to True Set ComDisplayFilterPattern of hoColumn to False Set ComFilterList of hoColumn to OLEexShowCheckBox Send Destroy to hoColumn Send Destroy to hoColumns Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Variant h Get ComAddItem of hoItems "Root 1" to h Get ComInsertItem of hoItems h "Child 1" to Nothing Get ComInsertItem of hoItems h "Child 2" to Nothing Set ComExpandItem of hoItems h to True Get ComAddItem of hoItems "Root 2" to h Get ComInsertItem of hoItems h "Child 1" to Nothing Get ComInsertItem of hoItems h "Child 2" to Nothing Send Destroy to hoItems Send ComEndUpdate End_Procedure |
1310 |
Is it possible to allow a single item being selected in the drop down filter window
Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComPaneWidth of hoChart True to 0 Send Destroy to hoChart Set ComLinesAtRoot to OLEexLinesAtRoot Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Variant voColumn Get ComAdd of hoColumns "Items" to voColumn Handle hoColumn Get Create (RefClass(cComColumn)) to hoColumn Set pvComObject of hoColumn to voColumn Set ComDisplayFilterButton of hoColumn to True Set ComDisplayFilterPattern of hoColumn to False Set ComFilterList of hoColumn to OLEexSingleSel Send Destroy to hoColumn Send Destroy to hoColumns Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Variant h Get ComAddItem of hoItems "Root 1" to h Get ComInsertItem of hoItems h "Child 1" to Nothing Get ComInsertItem of hoItems h "Child 2" to Nothing Set ComExpandItem of hoItems h to True Get ComAddItem of hoItems "Root 2" to h Get ComInsertItem of hoItems h "Child 1" to Nothing Get ComInsertItem of hoItems h "Child 2" to Nothing Send Destroy to hoItems Send ComEndUpdate End_Procedure |
1309 |
How can I display no (All) item in the drop down filter window
Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComPaneWidth of hoChart True to 0 Send Destroy to hoChart Set ComLinesAtRoot to OLEexLinesAtRoot Set ComDescription OLEexFilterBarAll to "" Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Variant voColumn Get ComAdd of hoColumns "Items" to voColumn Handle hoColumn Get Create (RefClass(cComColumn)) to hoColumn Set pvComObject of hoColumn to voColumn Set ComDisplayFilterButton of hoColumn to True Set ComDisplayFilterPattern of hoColumn to True Set ComFilterList of hoColumn to OLEexNoItems Send Destroy to hoColumn Send Destroy to hoColumns Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Variant h Get ComAddItem of hoItems "Root 1" to h Get ComInsertItem of hoItems h "Child 1" to Nothing Get ComInsertItem of hoItems h "Child 2" to Nothing Set ComExpandItem of hoItems h to True Get ComAddItem of hoItems "Root 2" to h Get ComInsertItem of hoItems h "Child 1" to Nothing Get ComInsertItem of hoItems h "Child 2" to Nothing Send Destroy to hoItems Send ComEndUpdate End_Procedure |
1308 |
Is it possible to display no items in the drop down filter window, so only the pattern is visible
Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComPaneWidth of hoChart True to 0 Send Destroy to hoChart Set ComLinesAtRoot to OLEexLinesAtRoot Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Variant voColumn Get ComAdd of hoColumns "Items" to voColumn Handle hoColumn Get Create (RefClass(cComColumn)) to hoColumn Set pvComObject of hoColumn to voColumn Set ComDisplayFilterButton of hoColumn to True Set ComDisplayFilterPattern of hoColumn to True Set ComFilterList of hoColumn to OLEexNoItems Send Destroy to hoColumn Send Destroy to hoColumns Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Variant h Get ComAddItem of hoItems "Root 1" to h Get ComInsertItem of hoItems h "Child 1" to Nothing Get ComInsertItem of hoItems h "Child 2" to Nothing Set ComExpandItem of hoItems h to True Get ComAddItem of hoItems "Root 2" to h Get ComInsertItem of hoItems h "Child 1" to Nothing Get ComInsertItem of hoItems h "Child 2" to Nothing Send Destroy to hoItems Send ComEndUpdate End_Procedure |
1307 |
How can I specify the time-scale available when zoom-in/zoom-out or enlarging the chart
Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Get ComAdd of hoColumns "Task" to Nothing Send Destroy to hoColumns Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComFirstVisibleDate of hoChart to "1/1/2001" Set ComPaneWidth of hoChart False to 48 Set ComShowNonworkingDates of hoChart to False Set ComLevelCount of hoChart to 3 Set ComUnitScale of hoChart to OLEexDay Set ComAllowResizeChart of hoChart to (OLEexAllowChangeUnitScale + OLEexAllowResizeChartMiddle + OLEexAllowResizeChartHeader) Set ComLabel of hoChart OLEexHour to "" Set ComLabel of hoChart OLEexMinute to "" Set ComLabel of hoChart OLEexSecond to "" Send Destroy to hoChart Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Send ComAddBar of hoItems (ComAddItem(hoItems,"Task A")) "Task" "1/2/2001" "1/6/2001" "K1" Nothing Send ComAddBar of hoItems (ComAddItem(hoItems,"Task B")) "Task" "1/6/2001" "1/10/2001" "K1" Nothing Send ComAddBar of hoItems (ComAddItem(hoItems,"Task C")) "Task" "1/10/2001" "1/14/2001" "K1" Nothing Send ComAddBar of hoItems (ComAddItem(hoItems,"")) "" "1/8/2001" "1/8/2001" "Info" "Click the <b>middle</b> mouse button and start dragging" Send Destroy to hoItems Send ComEndUpdate End_Procedure |
1306 |
How can I enable zoom-in/zoom-out or enlarging the chart, using the mouse middle button
Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Get ComAdd of hoColumns "Task" to Nothing Send Destroy to hoColumns Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComFirstVisibleDate of hoChart to "1/1/2001" Set ComPaneWidth of hoChart False to 48 Set ComShowNonworkingDates of hoChart to False Set ComLevelCount of hoChart to 3 Set ComUnitScale of hoChart to OLEexDay Set ComAllowResizeChart of hoChart to (OLEexAllowChangeUnitScale + OLEexAllowResizeChartMiddle + OLEexAllowResizeChartHeader) Send Destroy to hoChart Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Send ComAddBar of hoItems (ComAddItem(hoItems,"Task A")) "Task" "1/2/2001" "1/6/2001" "K1" Nothing Send ComAddBar of hoItems (ComAddItem(hoItems,"Task B")) "Task" "1/6/2001" "1/10/2001" "K1" Nothing Send ComAddBar of hoItems (ComAddItem(hoItems,"Task C")) "Task" "1/10/2001" "1/14/2001" "K1" Nothing Send ComAddBar of hoItems (ComAddItem(hoItems,"")) "" "1/8/2001" "1/8/2001" "Info" "Click the <b>middle</b> mouse button and start dragging" Send Destroy to hoItems Send ComEndUpdate End_Procedure |
1305 |
How can I enable zoom-in/zoom-out or enlarging, using the chart's header
Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Get ComAdd of hoColumns "Task" to Nothing Send Destroy to hoColumns Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComFirstVisibleDate of hoChart to "1/1/2001" Set ComPaneWidth of hoChart False to 48 Set ComShowNonworkingDates of hoChart to False Set ComLevelCount of hoChart to 3 Set ComUnitScale of hoChart to OLEexDay Set ComAllowResizeChart of hoChart to (OLEexAllowChangeUnitScale + OLEexAllowResizeChartHeader) Send Destroy to hoChart Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Send ComAddBar of hoItems (ComAddItem(hoItems,"Task A")) "Task" "1/2/2001" "1/6/2001" "K1" Nothing Send ComAddBar of hoItems (ComAddItem(hoItems,"Task B")) "Task" "1/6/2001" "1/10/2001" "K1" Nothing Send ComAddBar of hoItems (ComAddItem(hoItems,"Task C")) "Task" "1/10/2001" "1/14/2001" "K1" Nothing Send Destroy to hoItems Send ComEndUpdate End_Procedure |
1304 |
How can I enable resizing the chart, using the mouse middle button
Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Get ComAdd of hoColumns "Task" to Nothing Send Destroy to hoColumns Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComFirstVisibleDate of hoChart to "1/1/2001" Set ComPaneWidth of hoChart False to 48 Set ComShowNonworkingDates of hoChart to False Set ComLevelCount of hoChart to 3 Set ComUnitScale of hoChart to OLEexDay Set ComAllowResizeChart of hoChart to (OLEexAllowResizeChartMiddle + OLEexAllowResizeChartHeader) Set ComMaxUnitWidth of hoChart to 128 Set ComMinUnitWidth of hoChart to 8 Send Destroy to hoChart Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Send ComAddBar of hoItems (ComAddItem(hoItems,"Task A")) "Task" "1/2/2001" "1/6/2001" "K1" Nothing Send ComAddBar of hoItems (ComAddItem(hoItems,"Task B")) "Task" "1/6/2001" "1/10/2001" "K1" Nothing Send ComAddBar of hoItems (ComAddItem(hoItems,"Task C")) "Task" "1/10/2001" "1/14/2001" "K1" Nothing Send ComAddBar of hoItems (ComAddItem(hoItems,"")) "" "1/8/2001" "1/8/2001" "Info" "Click the <b>middle</b> mouse button and start dragging" Send Destroy to hoItems Send ComEndUpdate End_Procedure |
1303 |
How can I enable resizing the chart, using the chart's header
Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Get ComAdd of hoColumns "Task" to Nothing Send Destroy to hoColumns Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComFirstVisibleDate of hoChart to "1/1/2001" Set ComPaneWidth of hoChart False to 48 Set ComShowNonworkingDates of hoChart to False Set ComLevelCount of hoChart to 3 Set ComUnitScale of hoChart to OLEexDay Set ComAllowResizeChart of hoChart to OLEexAllowResizeChartHeader Set ComMaxUnitWidth of hoChart to 128 Set ComMinUnitWidth of hoChart to 8 Send Destroy to hoChart Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Send ComAddBar of hoItems (ComAddItem(hoItems,"Task A")) "Task" "1/2/2001" "1/6/2001" "K1" Nothing Send ComAddBar of hoItems (ComAddItem(hoItems,"Task B")) "Task" "1/6/2001" "1/10/2001" "K1" Nothing Send ComAddBar of hoItems (ComAddItem(hoItems,"Task C")) "Task" "1/10/2001" "1/14/2001" "K1" Nothing Send Destroy to hoItems Send ComEndUpdate End_Procedure |
1302 |
Is it possible to auto-numbering the children items but still keeps the position after filtering
Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComPaneWidth of hoChart True to 0 Send Destroy to hoChart Set ComLinesAtRoot to OLEexLinesAtRoot Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Variant voColumn Get ComAdd of hoColumns "Items" to voColumn Handle hoColumn Get Create (RefClass(cComColumn)) to hoColumn Set pvComObject of hoColumn to voColumn Set ComDisplayFilterButton of hoColumn to True Set ComFilterType of hoColumn to OLEexFilter Set ComFilter of hoColumn to "Child 2" Send Destroy to hoColumn Send Destroy to hoColumns Variant voColumns1 Get ComColumns to voColumns1 Handle hoColumns1 Get Create (RefClass(cComColumns)) to hoColumns1 Set pvComObject of hoColumns1 to voColumns1 Variant voColumn1 Get ComAdd of hoColumns1 "Pos.1" to voColumn1 Handle hoColumn1 Get Create (RefClass(cComColumn)) to hoColumn1 Set pvComObject of hoColumn1 to voColumn1 Set ComFormatColumn of hoColumn1 to "1 ropos ''" Set ComPosition of hoColumn1 to 0 Set ComWidth of hoColumn1 to 32 Set ComAllowSizing of hoColumn1 to False Send Destroy to hoColumn1 Send Destroy to hoColumns1 Variant voColumns2 Get ComColumns to voColumns2 Handle hoColumns2 Get Create (RefClass(cComColumns)) to hoColumns2 Set pvComObject of hoColumns2 to voColumns2 Variant voColumn2 Get ComAdd of hoColumns2 "Pos.2" to voColumn2 Handle hoColumn2 Get Create (RefClass(cComColumn)) to hoColumn2 Set pvComObject of hoColumn2 to voColumn2 Set ComFormatColumn of hoColumn2 to "1 ropos ':'" Set ComPosition of hoColumn2 to 1 Set ComWidth of hoColumn2 to 32 Set ComAllowSizing of hoColumn2 to False Send Destroy to hoColumn2 Send Destroy to hoColumns2 Variant voColumns3 Get ComColumns to voColumns3 Handle hoColumns3 Get Create (RefClass(cComColumns)) to hoColumns3 Set pvComObject of hoColumns3 to voColumns3 Variant voColumn3 Get ComAdd of hoColumns3 "Pos.3" to voColumn3 Handle hoColumn3 Get Create (RefClass(cComColumn)) to hoColumn3 Set pvComObject of hoColumn3 to voColumn3 Set ComFormatColumn of hoColumn3 to "1 ropos ':|A-Z'" Set ComPosition of hoColumn3 to 2 Set ComWidth of hoColumn3 to 32 Set ComAllowSizing of hoColumn3 to False Send Destroy to hoColumn3 Send Destroy to hoColumns3 Variant voColumns4 Get ComColumns to voColumns4 Handle hoColumns4 Get Create (RefClass(cComColumns)) to hoColumns4 Set pvComObject of hoColumns4 to voColumns4 Variant voColumn4 Get ComAdd of hoColumns4 "Pos.4" to voColumn4 Handle hoColumn4 Get Create (RefClass(cComColumn)) to hoColumn4 Set pvComObject of hoColumn4 to voColumn4 Set ComFormatColumn of hoColumn4 to "1 ropos '|A-Z|'" Set ComPosition of hoColumn4 to 3 Set ComWidth of hoColumn4 to 32 Set ComAllowSizing of hoColumn4 to False Send Destroy to hoColumn4 Send Destroy to hoColumns4 Variant voColumns5 Get ComColumns to voColumns5 Handle hoColumns5 Get Create (RefClass(cComColumns)) to hoColumns5 Set pvComObject of hoColumns5 to voColumns5 Variant voColumn5 Get ComAdd of hoColumns5 "Pos.5" to voColumn5 Handle hoColumn5 Get Create (RefClass(cComColumn)) to hoColumn5 Set pvComObject of hoColumn5 to voColumn5 Set ComFormatColumn of hoColumn5 to "'<font Tahoma;7>' + 1 ropos '-<b>||A-Z'" Set ComDef of hoColumn5 OLEexCellValueFormat to 1 Set ComPosition of hoColumn5 to 4 Set ComWidth of hoColumn5 to 32 Set ComAllowSizing of hoColumn5 to False Send Destroy to hoColumn5 Send Destroy to hoColumns5 Variant voColumns6 Get ComColumns to voColumns6 Handle hoColumns6 Get Create (RefClass(cComColumns)) to hoColumns6 Set pvComObject of hoColumns6 to voColumns6 Variant voColumn6 Get ComAdd of hoColumns6 "Pos.6" to voColumn6 Handle hoColumn6 Get Create (RefClass(cComColumn)) to hoColumn6 Set pvComObject of hoColumn6 to voColumn6 Set ComFormatColumn of hoColumn6 to "'<b>'+ 1 ropos '</b>:<fgcolor=FF0000>|A-Z|'" Set ComDef of hoColumn6 OLEexCellValueFormat to 1 Set ComPosition of hoColumn6 to 5 Set ComWidth of hoColumn6 to 48 Set ComAllowSizing of hoColumn6 to False Send Destroy to hoColumn6 Send Destroy to hoColumns6 Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Variant h Get ComAddItem of hoItems "Root 1" to h Get ComInsertItem of hoItems h "Child 1" to Nothing Get ComInsertItem of hoItems h "Child 2" to Nothing Set ComExpandItem of hoItems h to True Get ComAddItem of hoItems "Root 2" to h Get ComInsertItem of hoItems h "Child 1" to Nothing Get ComInsertItem of hoItems h "Child 2" to Nothing Send Destroy to hoItems Send ComApplyFilter Send ComEndUpdate End_Procedure |
1301 |
Is it possible to auto-numbering the children items too
Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Variant voChart Get ComChart to voChart Handle hoChart Get Create (RefClass(cComChart)) to hoChart Set pvComObject of hoChart to voChart Set ComPaneWidth of hoChart True to 0 Send Destroy to hoChart Set ComLinesAtRoot to OLEexLinesAtRoot Variant voColumns Get ComColumns to voColumns Handle hoColumns Get Create (RefClass(cComColumns)) to hoColumns Set pvComObject of hoColumns to voColumns Get ComAdd of hoColumns "Items" to Nothing Send Destroy to hoColumns Variant voColumns1 Get ComColumns to voColumns1 Handle hoColumns1 Get Create (RefClass(cComColumns)) to hoColumns1 Set pvComObject of hoColumns1 to voColumns1 Variant voColumn Get ComAdd of hoColumns1 "Pos.1" to voColumn Handle hoColumn Get Create (RefClass(cComColumn)) to hoColumn Set pvComObject of hoColumn to voColumn Set ComFormatColumn of hoColumn to "1 rpos ''" Set ComPosition of hoColumn to 0 Set ComWidth of hoColumn to 32 Set ComAllowSizing of hoColumn to False Send Destroy to hoColumn Send Destroy to hoColumns1 Variant voColumns2 Get ComColumns to voColumns2 Handle hoColumns2 Get Create (RefClass(cComColumns)) to hoColumns2 Set pvComObject of hoColumns2 to voColumns2 Variant voColumn1 Get ComAdd of hoColumns2 "Pos.2" to voColumn1 Handle hoColumn1 Get Create (RefClass(cComColumn)) to hoColumn1 Set pvComObject of hoColumn1 to voColumn1 Set ComFormatColumn of hoColumn1 to "1 rpos ':'" Set ComPosition of hoColumn1 to 1 Set ComWidth of hoColumn1 to 32 Set ComAllowSizing of hoColumn1 to False Send Destroy to hoColumn1 Send Destroy to hoColumns2 Variant voColumns3 Get ComColumns to voColumns3 Handle hoColumns3 Get Create (RefClass(cComColumns)) to hoColumns3 Set pvComObject of hoColumns3 to voColumns3 Variant voColumn2 Get ComAdd of hoColumns3 "Pos.3" to voColumn2 Handle hoColumn2 Get Create (RefClass(cComColumn)) to hoColumn2 Set pvComObject of hoColumn2 to voColumn2 Set ComFormatColumn of hoColumn2 to "1 rpos ':|A-Z'" Set ComPosition of hoColumn2 to 2 Set ComWidth of hoColumn2 to 32 Set ComAllowSizing of hoColumn2 to False Send Destroy to hoColumn2 Send Destroy to hoColumns3 Variant voColumns4 Get ComColumns to voColumns4 Handle hoColumns4 Get Create (RefClass(cComColumns)) to hoColumns4 Set pvComObject of hoColumns4 to voColumns4 Variant voColumn3 Get ComAdd of hoColumns4 "Pos.4" to voColumn3 Handle hoColumn3 Get Create (RefClass(cComColumn)) to hoColumn3 Set pvComObject of hoColumn3 to voColumn3 Set ComFormatColumn of hoColumn3 to "1 rpos '|A-Z|'" Set ComPosition of hoColumn3 to 3 Set ComWidth of hoColumn3 to 32 Set ComAllowSizing of hoColumn3 to False Send Destroy to hoColumn3 Send Destroy to hoColumns4 Variant voColumns5 Get ComColumns to voColumns5 Handle hoColumns5 Get Create (RefClass(cComColumns)) to hoColumns5 Set pvComObject of hoColumns5 to voColumns5 Variant voColumn4 Get ComAdd of hoColumns5 "Pos.5" to voColumn4 Handle hoColumn4 Get Create (RefClass(cComColumn)) to hoColumn4 Set pvComObject of hoColumn4 to voColumn4 Set ComFormatColumn of hoColumn4 to "'<font Tahoma;7>' + 1 rpos '-<b>||A-Z'" Set ComDef of hoColumn4 OLEexCellValueFormat to 1 Set ComPosition of hoColumn4 to 4 Set ComWidth of hoColumn4 to 32 Set ComAllowSizing of hoColumn4 to False Send Destroy to hoColumn4 Send Destroy to hoColumns5 Variant voColumns6 Get ComColumns to voColumns6 Handle hoColumns6 Get Create (RefClass(cComColumns)) to hoColumns6 Set pvComObject of hoColumns6 to voColumns6 Variant voColumn5 Get ComAdd of hoColumns6 "Pos.6" to voColumn5 Handle hoColumn5 Get Create (RefClass(cComColumn)) to hoColumn5 Set pvComObject of hoColumn5 to voColumn5 Set ComFormatColumn of hoColumn5 to "'<b>'+ 1 rpos '</b>:<fgcolor=FF0000>|A-Z|'" Set ComDef of hoColumn5 OLEexCellValueFormat to 1 Set ComPosition of hoColumn5 to 5 Set ComWidth of hoColumn5 to 48 Set ComAllowSizing of hoColumn5 to False Send Destroy to hoColumn5 Send Destroy to hoColumns6 Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Variant h Get ComAddItem of hoItems "Root 1" to h Get ComInsertItem of hoItems h "Child 1" to Nothing Get ComInsertItem of hoItems h "Child 2" to Nothing Set ComExpandItem of hoItems h to True Get ComAddItem of hoItems "Root 2" to h Get ComInsertItem of hoItems h "Child 1" to Nothing Get ComInsertItem of hoItems h "Child 2" to Nothing Send Destroy to hoItems Send ComEndUpdate End_Procedure |